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SUMMARY 

A  high  speed  array  processor  (ARO)  has  been  designed  for 
the  processing  of  radar  data  in  real  time.  The  operation 
of  the  ARO  is  supervised  hy  a  bit-slice  microprocessor 
(the  Control  Processor).  This  document  contains  a 
description  of  the  microcode  which  was  written  for  the 
Control  Processor  to  enable  it  to  interpret  PDP-11 
assembler  code. 
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1.  INTRODUCTION 

The  Control  Processor  is  one  element  of  the  Array  Oriented  Processor  (ARO) 
which  has  been  designed  within  ERL.  An  overview  of  the  operation  of  the  ARO 
is  provided  elsewhere(ref  .9) .  The  ARO  works  in  conjunction  with  a  host 
PDP  11/34  to  provide  high  speed  processing.  The  host  delegates  processing  to 
the  ARO  by  transferring  an  operating  system  to  it,  scheduling  tasks  and 
initiating  it  to  run  autonomously.  The  ARO  has  its  own  inbuilt  processor 
called  the  Control  Processor  (CP)  which  basically  serves  to  run  the  operating 
system  and  control  the  operation  of  the  remainder  of  the  ARO. 

The  design  philosophy  of  the  ARO  is  described  elsewhere(ref . 3 ,9) .  This 
document  basically  serves  to  provide  sufficient  detail  of  the  microcode 
written  for  the  CP  to  allow  the  microcode  to  be  maintained. 

The  PDP-11  assembler  language  was  chosen  as  the  target  language  for  the  CP  to 
be  compatible  with  the  host  processor.  The  design  philosophy  of  the  CP  by 
necessity  took  into  account  the  nature  of  the  PDP-11  instruction  set.  The 
ground  rules  followed  in  implementing  the  microcode  were  established  by 
Mr  J.  Zuikelis  in  reference  3.  A  full  description  of  the  hardware  of  the  CP 
is  provided  in  reference  1.  The  CP  is  based  on  the  Am2900  family  of  bit-slice 
microprocessor  products.  The  principles  involved  in  designing  and 
microprogramming  with  the  Am2900  family  are  explained  in  reference  7. 

The  CP  emulates  a  PDP-11/34  by  reading  object  code  which  is  stored  in  the  CP 
main  memory  into  an  instruction  port  (see  figure  1).  This  PDP-11  instruction 
is  fed  to  a  mapping  PROM  which  yields  a  microcode  starting  address  within  the 
microcode  store.  The  CP  then  executes  that  microcode  routine  which 
manipulates  the  CP  main  memory  in  a  manner  identical  to  a  PDP-11/34. 

The  microcode  was  generated  using  the  Signetics  Micro-assembler (ref . 2 )  which 
is  available  on  the  IBM  370  computer  which  is  installed  at  DRCS.  The  micro¬ 
assembler  enables  the  user  to  define  the  micro-instruction  word  format  and  the 
mnemonics  to  suit  the  application.  The  source  code  (input  to  the  micro¬ 
assembler)  consists  of  three  distinct  sections  -  the  micro  instruction  format 
section,  the  microp  definition  section  (similar  to  macro  definitions)  and  the 
program  section.  In  order  to  fully  appreciate  the  contents  of  this  document, 
the  reader  will  have  to  be  familiar  with  the  hardware  description  of  the 
Control  Processor (ref .  1 ,3) ,  the  micro-assembler  descr iption(ref . 2)  and  the 
PDP-11  instruction  set(ref.8).  Within  these  constraints,  Section  5  is 
provided  as  a  guide  to  enable  the  user  to  modify  the  microcode.  It  is 
anticipated  that  modification  will  only  be  required  in  the  program 
section  with  the  syntax  and  micro-instruction  format  sections  remaining 
unchanged. 

The  complete  listing  of  the  micro-assembler  output  is  shown  in  Appendices  I, 
II  and  III.  Instructions  for  using  the  IBM  370/3033  to  generate  the  microcode 
are  given  in  Appendix  IV. 


2.  SAMPLE  OF  MICRO -ASSEMBLER  OUTPUT 

A  sample  of  the  micro-assembler  output  with  the  64  bit  microcode  interspersed 
with  the  source  input  is  shown  in  figure  2.  This  section  depicts  the  fetch 
cycle  which  reads  the  PDP-11  code  into  the  instruction  port  and  the  single 
operand  PDP-11  instructions  CLR,  COM,  INC,  DEC,  NEG,  ADC  and  SBC.  Note  that 
the  start  address  in  the  microcode  for  the  fetch  cycle  is  31  (octal)  and  that 
the  start  address  in  the  microcode  of  CLR1  is  374  (octal).  The  mnemonic  NEXT 
causes  the  CP  to  jump  to  the  start  of  the  fetch  cycle. 
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Figure  2  may  be  used  to  illustrate  the  operation  of  the  CP  as  follows.  On 
initialisation,  the  micro-program  counter  is  forced  by  the  host  to  the  start 
of  the  fetch  cycle  of  the  microcode.  Assume  that  the  macro-program  counter 
(equivalent  to  the  PDP-11  register  R7)  is  pointing  to  a  location  in  CP  main 
memory  containing  the  machine  code  for: 

CLR  RO  ;  PDP-11  code  for  clear  reg  0 

The  execution  of  the  fetch  cycle  would  cause  the  micro-instructions  31,  32,  33 
and  374  to  be  invoked,  followed  by  another  fetch  cycle.  The  macro-program 
counter  would  be  updated  to  point  to  the  next  PDP-11  instruction  in  CP  main 
memory . 


3.  THE  MICRO-INSTRUCTION  FORMAT 

The  micro-instruction  format  is  identical  to  that  described  in  reference  2. 
The  fields  (see  Table  1)  are  defined  as  SRC  REG,  DST  REG,  MAR,  ALU  CONTROL, 
2904  STATUS  &  SHIFT,  MICROSEQUENCE  CONTROL,  SPECIAL  OPERATIONS  FIELD, 
IMMEDIATE  FIELD  and  an  ERROR  FIELD  to  record  assembly  time  errors.  The  fields 
are  further  divided  into  sub-fields  to  link  to  the  nomenclature  of 
references  1,  3,  &  4. 


TABLE  1.  MICRO-INSTRUCTION  FORMAT 


FIELD 

SUB-FIELD 

WIDTH 

COMMENT 

DEFAULT 

SRC 

AMODE 

2 

A-MODE  SELECT  )  SOURCE  REGISTER 

0 

AFIELD 

4 

A-SOURCE  SELECT  ) 

0 

DST 

BMODE 

2 

B-MODE  SELECT  )  DESTINATION  REG. 

1 

BFIELD 

4 

B-SOURCE  SELECT  ) 

7 

MARS 

1 

MEMORY  ADDR.  REG.  SELECT 

0 

C2903 

11  4 

4 

ALU  OPERATION  SELECT 

4 (MOV  D) 

10 

1 

ALU  OPERATION  SELECT 

1 

I5_8 

4 

ALU  DEST  CONTROL,  SPECIAL  FUNC 

OCH(TST) 

C2904 

Ill  12 

2 

CARRY  IN  SELECT 

0 

16  9 

4 

SHIFT  LINKAGE  SELECT 

0 

10  5 

6 

STATUS  REG  UPDATE/  COND.  TEST 

44Q 

EC 

1 

CARRY  UPDATE  ENABLE 

0 

CEU 

1 

USR  UPDATE  ENABLE 

0 

CEM 

1 

MSR  UPDATE  ENABLE 

0 

— 

CCMUX 

3 

COND.  CODE  TEST  SELECT 

O(UNCOND) 

C2910 

4 

MICROSEQUENCER  CONTROL 

OEH(CONT) 

SOF 

5 

SPECIAL  OPERATION  FIELD 

OFH 

IMMOP 

SLWDTH 

4 

MIR  FIELD  SELECTOR  WIDTH 

0 

TADDR 

12 

TARGET  ADDR.  FOR  DIRECT  JUMP 

0 

3 
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3.1  Field  description 

The  SRC  field  controls  which  register  provides  the  source  data  to  the  ALU 
in  double  operand  instructions.  The  DST  field  selects  which  register  is 
read  from  in  single  and  written  to  in  single  and  double  operand 
instructions.  The  MARS  field  controls  the  transfer  of  the  address  at  the 
output  of  the  ALU  to  the  memory  address  register.  The  C2903  field  selects 
the  ALU  operation  to  be  performed  and  partially  controls  the  ALU  shifting 
operation,  byte  manipulations  and  writing  of  data  to  the  destination.  The 
C2904  field  controls  the  carry-in  to  the  ALU  (11112),  the  linkages 
provided  for  shift  and  rotate  instructions  (169),  the  status  update  and 
condition  code  testing  (10  5),  and  status  register  update  inhibits  (EC,  CEU 
and  CEM) .  The  CCMUX  field  controls  the  feeding  of  conditional  tests  to  the 
microsequencer.  The  C2910  field  controls  the  program  flow  within  the 
microcode.  The  SOF  (special  operations  field)  controls  the  interrupt 
processing,  the  CP  main  memory  operations  and  the  machine  halt.  The  IMMOP 
field  is  used  to  provide  the  ALU  with  data  and  addresses  which  may  be 
resolved  at  assemble-time. 

Default  values  are  provided  for  each  field  and  sub-field  so  that  a  complete 
specification  of  all  fields  is  not  necessary  when  writing  microcode  (see 
Appendix  I).  The  default  is  not  necessarily  a  null  operation.  For 
example,  the  default  condition  for  the  microsequencer  (C2910)  is  CONT  which 
increments  the  micro-program  counter  by  one  to  point  to  the  next  micro¬ 
instruction.  Details  of  the  default  conditions  are  described  later  (see 
Section  5.12). 


4.  MICROP  DEFINITIONS 

The  microp  definition  section  serves  to  define  'macros'  which  may  be  used  in 
the  program  section.  The  ability  to  nest  microps  means  that  the  coding  of 
microps  may  be  simplified.  For  example,  the  addressing  microp  is  invoked  by 
the  symbol  @  within  the  ALU  microps  (see  Appendix  II).  Thus  the  micro¬ 
assembler  expects  a  list  of  addresses  to  follow  the  use  of  an  ALU  microp. 

The  microp  definition  section  has  been  organised  in  the  same  order  as  the 
micro-instruction  format.  Thus  the  addressing  register  select  is  followed  by 
ALU  control,  2904  control,  microsequencer  control,  special  operations  field 
control  and  lastly,  immediate  field  control. 

Where  possible  the  mnemonics  suggested  in  the  AKO  PROCESSOR  DESIGN 
N0TES(ref.3)  have  been  used.  The  ALU  functions  have  been  redefined  to  reflect 
the  source  (S_)  and  destination  (_!))  structure  of  the  micro-instruction 
format.  The  special  function  mnemonics  of  the  2903  have  been  redefined  to 
more  closely  reflect  their  operation  as  far  as  PDP-11  programmers  are 
concerned . 


5.  ASSEMBLER  SYNTAX 

In  essence,  the  microp  definition  section  defines  the  syntax  of  the  micro¬ 
assembler.  The  syntax  of  the  program  section  is  outlined  in  figure  3  with 
details  being  provided  in  the  following  sub-sections.  To  generate  the  desired 
microcode,  one  of  the  alternatives  listed  in  figure  3  for  each  field  may  be 
selected.  Figure  4  provides  a  list  of  the  mnemonics  recognised  in  the  program 
section.  The  seldom  used  fields  in  the  micro- instruct  ion  format  are  directly 
specified  in  the  form  FIELD=xxxxx.  Labels  are  used  extensively  to  make  the 
microcode  more  readable  and  are  of  the  form  LABEL:  which  must  be  the  first 
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entry  on  the  line.  Wherever  possible  the  labels  are  derived  from  the  PDP-11 
assembler  mnemonics.  All  labels  which  are  left  justified  on  the  page  (see 
Appendix  III)  must  appear  in  the  mapping  PROM. 

5.1  ALU  function 

The  Am2903  ALU  operation  is  divided  into  two  classes  of  operation  - 
standard  functions  (ALU)  and  special  functions  (SPCFN) .  Figure  4  shows 
the  correspondence  between  the  mnemonics  employed  in  the  program 
section  and  the  manufacturer's  descript ion(ref .4) . 

5.2  Source  register  definition 

The  register  definitions  must  immediately  follow  the  ALU  or  SPCFN 
operation.  Address  operands  may  be  omitted  but  their  order  must  be 
preserved  by  inserting  commas  (eg  RS,,MAR  indicates  the  destination 
register  is  not  required).  Trailing  operands  may  be  omitted. 

Details  of  the  source  register  mnemonics  are  shown  in  figure  4.  The 
mnemonics  are  on  the  left  hand  of  the  source  register  columns  with  the 
corresponding  micro-instruction  field  values  on  the  right.  Registers  RO 
to  R7  correspond  to  the  PDP-11  registers.  Registers  R8  to  RIO  are  reserved 
for  later  use  in  coding  the  routines  to  control  the  ARO.  Registers  ZERO, 
ONE  and  TWO  hold  the  constants  indicated  by  their  names.  Registers  TEMP@ 
and  TEMP  are  used  as  temporary  registers  within  the  microcode  routines  used 
to  interpret  each  PDP-11  instruction. 

The  use  of  the  symbol  RS  as  a  source  register  causes  the  addressing  routine 
to  use  bits  6  to  8  of  the  instruction  port  to  be  used  as  the 
source  register  address.  (This  corresponds  to  the  SS  field  of  the  PDP-11 
instruction).  Similarly,  the  use  of  RD  as  a  source  register  causes 
bits  0  to  2  of  the  instruction  port  to  be  used  as  the  source  register 
address  (the  DD  field). 

The  registers  DRO,  DR1  and  DR2  are  the  input/output  registers  used  to 
buffer  data  to  the  CP  main  memory.  The  register  IMM  corresponds  to  the 
micro-instruction  field  IMMOP  and  is  used  to  enter  immediate  data  (eg 
constants  or  target  addresses)  into  the  ALU.  The  use  of  PSW  as  a  source 
register  causes  the  processor  status  to  be  extracted  from  the  C2904. 

The  symbol  FLDSEL  (OFFSET .WIDTH)  causes  portion  of  the  instuction  port  to 
be  used  as  the  source  register.  The  parameter  OFFSET  specifies  the  number 
of  low  order  bits  to  be  skipped.  The  parameter  width  defines  the  width  in 
bits  of  the  required  field.  This  portion  is  then  placed  at  the  source 
input  of  the  ALU  with  the  unfilled  high  order  bits  set  to  zero. 

5.3  Destination  register  definition 

The  destination  register  must  immediately  follow  the  source  register 
definition  delimted  by  a  comma.  The  mnemonics  used  for  the  destination 
registers  are  shown  in  figure  4.  Note  that  some  of  the  micro-instruction 
field  values  for  the  source  and  destination  registers  are  different  even 
though  the  mnemonics  are  the  same.  This  difference  is  due  to  the  hardware 
configuration  of  the  Control  Processor. 
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The  destination  and  source  register  mnemonics  are  the  same  with  the 
exclusion  of  ZERO,  ONE,  TWO,  MIR  and  QDST.  ZERO,  ONE  and  TWO  are  constants 
and  thus  are  not  available  as  a  destination  register.  An  attempt  to  use 
any  of  these  three  registers  as  a  destination  is  trapped  by  the  addressing 
microp  @.  The  use  of  MIR  causes  the  instruction  port  to  be  loaded  with 
data  (which  may  be  a  PDP-11  instruction)  from  the  CP  main  memory.  The 
address  of  this  data  is  provided  by  the  MAR  register.  The  specification  of 
QDST  as  a  destination  causes  the  Q  register  of  the  Am2903  to  be  loaded  with 
the  data  at  the  output  of  the  ALU. 

5.4  MAR,  Q  register  definition 

The  third  register  field  controls  the  loading  of  the  CP  main  memory 
address  register  (MAR)  and  the  use  of  the  Q  register  of  the  Am2903  as  an 
alternative  source.  The  symbol  MAR  causes  the  MAR  register  to  be  loaded 
with  the  address  at  the  output  of  the  ALU.  The  symbol  QIN  causes  the 
Q  register  to  be  used  as  an  alternative  source  to  the  ALU.  Note  that  when 
QIN  is  invoked  one  source  is  specified  by  the  RSN  field,  the  destination  is 
specified  by  DSN  and  the  alternative  source  is  the  Q  register.  The  symbol 
MARQ  causes  both  MAR  and  QIN  to  be  executed. 

5.5  The  C2904/shift  control  definition 

This  field  controls  the  inhibiting  of  the  register  write  cycle  for  the 
Am2903,  and  the  Am2903  shifter  operation  and  the  corresponding  linkages 
provided  by  the  Am2904.  Specifying  TST  inhibits  the  writing  of  data  into 
the  destination  register.  Note  that  this  is  the  default  condition  if  the 
destination  register  is  not  specified.  STO  and  STOB  cause  a  word  and  a 
byte,  respectively,  to  be  written  into  the  destination  register.  The 
specification  of  an  ALU  or  SPC  FN  function  causes  the  invocation  of  the  STO 
operation.  BSX  propagates  the  sign  of  the  low  order  byte  through  the  high 
order  byte  and  stores  the  result.  ROR,  ROL  and  ASL  perform  a  similar 
operation  to  that  performed  by  PDP-11  instructions  of  the  same  name. 
However,  the  overflow  bit  is  not  nessesarily  identical.  (The  overflow  bit 
is  corrected  by  the  microcode  routine  FIXCC  -  see  Appendix  III).  Note  that 
the  Am2904  is  not  capable  of  directly  simulating  the  ASR  instruction  (see 
microcode  routine  ASR3). 

5.6  USR  and  MSR  control 

This  group  of  instructions  controls  the  manipulation  of  the  status 
registers  within  the  Am2904.  Tin;  Am2904  contains  two  status  registers  - 
the  micro  status  register  (USR)  and  the  machine  status  register  (MSR).  The 
USR  is  used  to  preserve  the  status  of  the  condition  codes  at  the  microcode 
level.  The  MSR  is  used  to  preserve  the  status  of  the  condition  codes  at 
the  machine  level.  Thus  the  MSR  contains  the  equivalent  of  the  PSW  of  the 
PDP-11.  The  condition  code  bits  are  the  sign  (N)  bit,  the  zero  (Z)  bit, 
the  overflow  (V)  bit  and  the  carry  (C)  bit. 

The  mnemonics  MSR,  MSRCI  and  MSRNOC  cause  the  ALU  status  to  be  stored  in 
the  MSR  'as  is',  with  carry  inverted,  and  with  carry  inhibited  (NOCarry). 
The  mnemonic  MSRZ  causes  the  MSR  to  be  cleared.  The  mnemonic  USR  causes 
the  ALU  status  to  be  stored  in  the  USR.  STO  PSW  causes  the  data  at  the 
output  of  the  ALU  to  be  stored  in  the  MSR. 

5.7  Transfer  type 

This  group  of  instructions  controls  the  operation  of  the  microsequencer 
(C2910).  Figure  4  shows  the.  operations  performed  by  the  02410  (see 
reference  4  for  further  details).  The  mnemonics  JMP  LABEL  and  JSR  LABEL 
cause  an  unconditional  jump  (C.JP  UNCOND)  and  unconditional  jump  to 


subroutine  (CJS  UNCOND) ,  respectively.  If  the  keyword  INDEXED  is  used  as  a 
label  for  the  JMP  or  JSR  instruction,  then  the  ALU  output  is  used  as  the 
target  address.  The  mnemonic  RETURN  is  used  to  perform  an  unconditional 
return  from  a  subroutine  (CRTN  UNCOND).  NEXT  implements  the  fetch  cycle 
which  in  turn  executes  the  JMAP  instruction  of  the  C2910.  TRAP  causes  the 
microcode  to  enter  a  routine  which  signifies  that  an  illegal  instruction 
code  has  been  detected.  All  other  C2910  instructions  take  the  form  TRANSFR 
COND  with  the  appropriate  mnemonics  detailed  in  figure  4.  The  conditional 
test  mnemonics  are  similar  to  those  of  the  PDP-11  instruction  set  with  ’U' 
signifying  the  USR  and  'M1  signifying  the  MSR. 

5.8  Memory  control 

This  group  controls  the  reading  from  (READ,  READB)  or  writing  to  (WRITE, 
WRITEB)  the  CP  main  memory.  The  character  B  appended  to  the  mnemonic 
signifies  that  a  byte  memory  control  operation  is  to  be  performed.  In 
addition,  READC  and  WRITEC  read  and  write  from  the  cache  memory. 

5.9  Loading  of  immediate  field 

The  mnemonic  PRESET  causes  the  micro-assembler  to  expect  a  constant  which 
it  places  in  the  IMMOP  field.  This  permits  constants  to  be  used  as  source 
values.  The  mnemonic  TADDR  causes  the  low  12  bits  of  the  IMMOP  field  to  be 
used  as  a  target  address  for  the  microcode. 

5.10  Comments 

Comments  are  entered  into  the  source  lines  by  enclosing  the  comment  in 
double  quote  marks. 

5.11  Terminator 

A  semicolon  signifies  the  end  of  each  micro-instruction. 

5.12  Default  field  values 

Default  values  are  provided  for  all  the  microword  fields  to  simplify  the 
writing  of  the  microcode  (see  Table  l).  The  destination  register  defaults 
to  R0  and  writing  to  the  destination  register  is  inhibited  by  the 
addressing  microp.  For  example,  using  the  addressing  sequence  R1,,MAR 
inhibits  the  writing  of  data  to  the  destination  register.  The  114  field 
of  the  C2903  defaults  to  the  M0V_D  instruction  as  this  simply  reads  the 
data  from  the  destination  and  writes  it  back  in  again.  The  15-8  sub-field 
of  the  C2903  defaults  to  TST  which  inhibits  the  writing  of  data  into  the 
destination  register. 

The  C2904  field  controls  the  carry-in  selection,  the  shift  linkage 
selection,  the  status  updating  and  the  condition  code  testing.  The  carry- 
in  select  defaults  to  inhibiting  any  carry-in.  The  10  5  sub-field  defaults 
to  inhibiting  the  update  of  the  USR  or  the  hSR .  The  10  5  sub-field  also 
defaults  to  the  condition  code  test  MEQ(44Q). 

The  CCMUX  field  defaults  to  the  unconditional  mode.  The 
C2910  (microsequencer)  field  defaults  to  the  COST  instruction  which  causes 
the  micro  program  counter  to  be  incremented  by  one.  The  SOF  field  defaults 
to  the  enable  interrupt  condition. 
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6.  THE  PROGRAM  SECTION 

The  program  section  of  the  microcode  (see  Appendix  III)  consists  of  three 
sections  -  symbol  definition,  subsidiary  routines  and  the  PDP-11  instruction 
interpretation. 

6.1  The  symbol  definition  section 

The  first  portion  of  the  program  section  serves  to  define  registers  and 
miscellaneous  symbols  used  in  the  remainder  of  the  program  section.  All  of 
these  symbols  were  described  in  figure  4  with  the  exception  of  MC  and 
DUMMYADDR.  MC  is  used  to  specify  that  the  carry-in  is  to  come  from  the 
MSR.  DUMMYADDR  specifies  a  non-cxistant  location  in  the  CP  main  memory 
which  is  used  in  transferring  data  from  the  DRO  register  along  the  memory 
data  bus  to  the  instruction  port  (see  REGDST:  in  the  subsidiary  routine 
section) . 

6.2  The  subsidiary  routines 

This  segment  contains  run-time  routines  which  support  the  operation  of  the 
PDP-11  program  section  (see  Appendix  III).  SAVE  is  called  by  the  trap 
instructions  (BPT,  IQT,  etc)  to  save  the  PSW  and  PC  on  the  PDP-11  stack. 
ILGL  is  used  to  trap  illegal  instruction  codes  and  traps  through 
location  10  in  CP  main  memory.  Note  that  FETCH  conditionally  tests  the 
interrupt  status.  This  is  the  only  time  that  the  interrupt  status  is 
interrogated  so  interrupts  are  only  processed  at  the  macro  level.  The 
interrupt  processing  is  nested  so  that  multiple  interrupts  can  be  handled 
satisfactorily. 

6.2.1  Address  evaluation 

The  next  group  of  support  routines  fetches  the  operand  for  PDP-11 
addressing  modes  other  than  mode=0 .  Separate  addressing  routines  are 
needed  for  byte  addressing  and  for  evaluating  source  and  destination 
addresses.  Each  of  the  addressing  groups  interprets  mode=l  through  to 
mode=7 .  DBASE  evaluates  word  destination  addresses  and  DBASEB  byte 
destination  addresses.  SBASF.  evaluates  word  source  addresses  and  SBASEB 
byte  source  addresses. 

In  the  next  group  of  support  routines,  Ri.GDST  transfers  the  source 
register  value  to  the  low  order  position  of  the  instruction  port.  This 
is  utilised  in  processing  some  of  the  PDP-11  extended  insruction  set 
codes.  FIXCC  is  used  to  set  the  overflow  bit  to  an  identical  state  to 
the  PDP-11  after  arithmetic  shift  and  rotate  instructions. 

6.3  PDP-11  instruction  section 

This  portion  interprets  the  PDP-11  instructions.  It  is  arranged  in  order  of 
increasing  instruction  value  (eg  HALT=OOOOOQ  comes  first).  Labels  which 
are  left  justified  appear  in  the  mapping  PROMS.  Any  labels  which  start 
with  @  are  used  only  as  a  jump  point  within  each  PDP-11  instruction. 
Occasionally  @  is  used  within  a  label  to  distinguish  it  from  a  previously 
defined  symbol.  Note  that  instructions  are.  grouped  into  classes.  The 
classes  are  selected  on  the  basis  of  likeness  in  starting  address  decoding 
and  likeness  in  interpretation.  For  example,  the  miscellaneous 
instructions  are  grouped  together  because  the  low  order  six  bits  of  the 
instruction  must  be  evaluated  to  resolve  the  starting  address. 
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6.3.1  Class  Ml  (miscellaneous) 

This  group  includes  the  HALT,  WAIT,  RTI ,  BPT,  IOT,  RESET  and  RTT 
instructions  (see  Appendix  III).  The  high  order  ten  bits  of  the  PDP-11 
instruction  are  used  to  determine  the  starting  address  of  the  microcode 
routine  which  interprets  each  instruction.  Thus  if  the  six  low  order 
bits  are  necessary  to  interpret  the  instruction  then  the  field  selector 
must  be  used  to  resolve  the  starting  address  within  each  class  of 
instructions.  Note  that  in  this  case,  the  microcode  to  interpret  each 
PDP-11  instruction  must  occur  at  a  specific  microcode  location  relative 
to  the  associated  JMP  INDEXED  instruction.  Hence  if  the  interpretation 
takes  more  than  one  micro-instruction,  a  second  .jump  is  necessary  (eg 
HALT:  and  @HALT :  ) .  Also  note  that  attempts  to  use  the  PDP-11  RESET 
instuction  are  trapped  as  this  instruction  has  no  significance  as  far  as 
the  CP  hardware  is  concerned.  TRAP  causes  control  to  be  transferred  to 
CP  main  memory  location  10  (octal)  which  is  the  standard  PDP-11  trap 
location  for  an  illegal  instruction. 

6.3.2  Class  JUMP,  RTS  and  CC 

These  three  groups  of  instructions  interpret  the  JMP,  RTS  and  the 
Condition  Code  instructions (CLN ,  CLZ,  CLV,  CLC,  CCC ,  SEN,  SEZ,  SEV,  SEC 
and  SCC) . 

The  JUMP  instruction  utilises  the  field  selector  to  generate  an  offset 
address  to  resolve  the  various  modes  (see  Appendix  1 1 1. 5).  The  jump 
address  is  then  retrieved  and  replaces  the  old  value  in  R7 .  All  six 
jump  modes  are  interpreted. 

The  RTS  instruction  uses  the  field  selector  to  obtain  the  register 
number  containing  the  return  address.  The  stack  in  PDP-11  stack  is  then 
popped  to  retrieve  the  old  register  value. 

The  CC  instruction  group  uses  the  field  selector  to  prepare  a  mask  based 
on  the  op-code.  This  mask  is  then  used  to  clear  or  set  designated  bits. 
Note  that  some  illegal  instruction  codes  are  possible  within  the  CC 
group.  These  are  detected  and  control  transferred  to  ILGL. 

6.3.3  Class  SWAB,  BR  and  JSR 

The  function  of  the  Control  Processor  is  to  create  a  monitor  to  control 
the  operation  of  the  ARO.  Hence  there  are  instructions  in  the  PDP-11 
instruction  set  that  are  used  infrequently.  Most  byte  operations  fit 
into  this  category  and  thus  there  is  little  hardware  support  for  byte 
manipulation.  This  makes  PDP-11  instructions  such  as  SWAB  rather 
cumbersome  as  the  byte  swap  is  performed  by  rotating  left  eight  times 
(see  Appendix  1 1 1. 6).  Note  that  the  word  to  be  rotated  is  written  into 
a  temporary  register  so  that  the  same  rotate  routine  (R0T8)  can  be  used 
with  both  register  and  memory  resident  data. 

The  branch  instructions  (BR,  BNE,  BEQ,  BGE ,  BLT,  BUT  and  BLE)  and  the 
JSR  instructions  are.  handled  in  the  next  two  groups.  The  JSR 
instructions  all  require  the  manipulation  of  the  PDP-11  stack  which  is 
held  in  the  CP  main  memory.  This  manipulation  is  performed  by  the 
microcoded  routine  STACKO . 

6.3.4  Class  SOI,  S02 ,  S03,  S04,  S05 


This  group  of  instructions  (see  Appendix  111.7)  comprise  the  Single 
Operand  instructions.  Classes  SOI  and  S02  interpret  CI.R,  COM,  INC,  DEC, 
NEG,  ADC,  SBC  and  TST  instructions.  Class  SOI  performs  register 
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operations  (viz  mode=0)  and  with  the  exception  of  SBC  they  are 
accomplished  in  one  microcycle  (plus  the  fetch  cycles).  Class  S02 
require  memory  operations  (viz  modes  other  than  zero)  and  invokes  the 
microcode  routine  DBASE  to  obtain  the  destination  address. 

Classes  S03  and  S04  interpret  ROR,  ROL,  ASR,  ASL  and  SXT  instructions. 

PDP-11  arithmetic  shift  and  rotate  operations  are  a  little  awkward 
to  implement  on  the  2900  family.  This  arises  due  to  the  need  to 
determine  the  exclusive-or  (XOR)  of  the  N  and  the  C  bits  after  the 
rotate  operation.  The  Am2903  determines  the  condition  codes  before  the 
rotate/shift  operation  is  performed  so  the  codes  must  be  determined  on  a 
subsequent  cycle.  Also  the  Am2904  cannot  directly  perform  a  conditional 
jump  on  testing  (N  XOR  C). 

The  microcode  routine  FIXCC  is  used  to  evaluate  the  condition  codes 
after  performing  a  shift  or  rotate  function.  The  manipulation  of  the 
overflow  bit  is  performed  in  the  USR  in  preference  to  the  MSR  as  the  USR 
has  individual  bit  control.  In  addition,  the  Am2903  is  not  capable  of 
'recycling'  the  sign  bit  as  is  required  for  ASR.  These  limitations  slow 
the  speed  of  operation  of  the  Control  Processor  when  handling  arithmetic 
shift  or  rotate  operations. 

Class  SOS  includes  the  MARK  instruction  which  tidies  the  PDP-11  stack  on 
returning  from  a  subroutine. 

6.3.5  Class  D01 ,  D02 ,  D03,  D04 

This  group  of  instructions  comprises  the  Double  Operand  instructions 
(see  Appendix  III. 8).  Classes  D01 ,  D02 ,  D03  and  D04  interpret  MOV,  CMP, 
BIT,  BIC,  BIS  and  ADD.  With  the  double  operand  instructions  four 
distinct  classes  arise  as  entry  points  are  required  to  separately 
process  the  occurrences  of  mode=0  for  both  the  source  and  the 
destination  registers.  Class  D01  processes  the  instruction  when  modes 
of  both  the  souce  and  the  operand  are  zero.  Class  D02  processes  the 
instruction  when  the  source  mode  is  zero  and  the  destination  mode  is  not 
zero.  Similar  arrangements  apply  for  Classes  D03  and  D04. 

6.3.6  Class  EIS 

Class  EIS  interprets  the  Extended  Instruction  Set  (see  Appendix  III. 9). 
This  set  includes  MUL,  DIV,  ASH,  ASHC,  XOR,  FADD,  FSUB ,  FMUL,  FDIV  and 
SOB.  However  FADD,  FSUB,  FMUL  and  FDIV  are  not  interpreted  but  are 
trapped. 

The  MUL  instruction  is  implemented  in  three  stages.  The  pre-amble  (up 
to  the  SMUL  operation)  serves  to  place  the  multiplier  in  the  Q  register, 
the  multiplicand  in  TEMPO,  and  14  in  the  Am2910  loop  counter.  The 
multiplication  involves  fifteen  cycles  of  SMUL  (Signed  MULtipl ication) 
and  one  cycle  of  FMUL  (Final  Multiplication).  The  FMUL  operation  serves 
to  adjust  the  partial  product  depending  on  the  sign  of  the  multiplier. 
The  post-amble  places  the  32  bit  product  in  the  designated  register  pair 
and  fixes  the  condition  codes.  The  MUL  instruction  has  two  entry  points 
-  one  for  mode=0  and  the  other  for  non  zero  modes. 

The  PDP-11  divide  is  integer  in  nature  and  to  avoid  the  necessity  of 
normalizing  the  dividend  and  divisor  and  post-scaling  the  quotient  and 
remainder,  a  scheme  similar  to  that  of  Khyne(ref.5)  was  implemented. 
Rhyne's  work  described  the  case  for  fractional  arithmetic.  In  the 
PDP-11  case  (integer),  the  dividend  (both  most  and  least  significant 
haves)  has  to  be  shifted  left  arithmetically  one  position  before  the 
division  may  proceeed.  After  the  division  algorithm  has  been 
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implemented,  Rhyne  suggests  a  correction  for  the  quotient  and  remainder 
based  on  the  sign  bits  of  the  quotient,  the  remainder  and  the  dividend. 

In  the  integer  case,  it  is  simpler  to  correct  the  quotient  and  remainder  • 

on  the  basis  of  the  signs  of  the  quotient  (Q) ,  the  remainder  (and  the 
divisor  (X))  as  shown  in  Table  2. 


TABLE  2.  QUOTIENT  AND  REMAINDER  CORRECTION 


Original 

signs 

Required 

correct  ion 

Q 

R 

X 

Q' 

X' 

- 

- 

- 

Q+l 

R-X 

- 

- 

+ 

Q 

R 

- 

+ 

- 

Q 

R 

- 

+ 

+ 

Q+i 

R-X 

+ 

- 

- 

Q 

R 

+ 

- 

+ 

Q~  l 

R+X 

+ 

+ 

- 

Q~l 

R+X 

+ 

+ 

+ 

Q 

R 

The  DIV  instruction  may  be  conveniently  broken  into  three  sections.  The 
pre-amble  places  the  divisor  in  DRO,  invokes  REGDST  which  places  the 
address  of  the  dividend  (least  significant  half)  in  the  DD  field  of  the 
instruction  (which  is  held  in  the  instruction  port).  The  pre-amble  then 
places  the  divisor  in  TEMP  and  the  dividend  (most  significant  half)  in 
TEMP@.  These  two  values  are  then  converted  to  sign  magnitude 
representation  to  ensure  that  the  divisor  is  larger  than  the  dividend. 
Note  that  the  dividend  is  shifted  left  prior  to  making  this  test  to  take 
the  31  bit  precision  of  the  dividend  into  account.  The  divide  operation 
is  then  performed.  NMZD  is  the  first  divide  operation  and  it  ascertains 
the  sign  bit  of  the  quotient.  The  SDIV  (Signed  Divide)  operation  is 
then  executed  fourteen  times.  The  FDIV  (Final  Divide)  operation  then 
adjusts  the  quotient  by  forcing  the  least  significant  bit  to  a  one.  The 
post-amble  places  the  quotient  and  remainder  in  the  appropriate 
registers  and  implements  the  correction  outlined  in  Table  2.  The 
condition  code  bits  are  forced  to  be  identical  to  that  of  the  PDP-11. 

Due  to  the  similarity  of  ASH  and  ASHC,  both  of  these  instructions  are 
treated  by  the  same  routine.  However  ASHC  uses  the  Q  register  to 
perform  the  double  word  shift.  Firstly,  the  source  operand  is  placed  in 
TEMP@  and  the  shift  direction  extracted.  Then  the  number  of  shifts  is 
placed  in  the  C2910  loop  counter.  The  MIR  is  then  examined  to  determine 
if  the  operation  pertains  to  ASH  or  ASHC  and  the  appropriate  branch 
made.  For  ASHC,  the  routine  RF.GDST  is  invoked  to  determine  which  PDP-11 
register  pair  holds  the  data  to  be  shifted.  The  appropriate  rotation  is 
then  performed.  In  the  case  of  ASHC,  a  post-amble  ((jASHCC)  is  used  to 
determine  the  Z  bit. 

6.3.7  Class  BRS  and  TR 

Class  BRS  includes  the  BPL,  BMI ,  BHI ,  BLOS,  BVC ,  BVS ,  BCC,  BHIS,  BCS  and 
BLO  instructions.  These  instructions  are  interpreted  in  a  similar 
fashion  to  the  class  BR  group.  Class  TR  includes  the  ENT  and  TRAP 
instructions.  These  are  implemented  similar  to  BPT  in  the  class  Ml 


group. 
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6.3.8  Class  SOo ,  S07,  S08 ,  S09 ,  SOlO 

Classes  S06 ,  S07 ,  S08  and  SOO  include  all  the  Single  Operand  (byte) 

instructions.  CLRB,  COMB,  INCB,  NF.GB,  ADCB  and  TSTB  are  implemented  by 
the  S06  (mode=0  and  S07  (other  modes)  groups).  Note  that  the  lower 
byte  only  is  affected  for  register  operations.  DBASEB  is  used  to 
extract  the  byte  operand  for  memory  resident  operands.  In  this  case, 
either  a  high  or  low  byte  may  be  specified,  but  the  hardware  places  that 
byte  in  the  low  position  in  DRO.  Classes  SOS  (mode=0)  and  S09  (other 
modes)  implement  the  RORB ,  ROLB ,  ASRB  and  ASLB  instructions .  The 
operation  of  these  groups  is  similar  to  groups  S03  and  S04.  Group  SOlO 
implements  the  MIPS  and  MFPS  instructions. 

6.3.9  Class  DOS,  D06,  D07,  DOS 

These  classes  include  the  Double  Operand  (byte)  instructions  and 
interpret  MOVB ,  CMPB,  BITB,  RICH  and  B1SB.  The  instructions  are 
interpreted  in  a  similar  fashion  to  their  word  counterparts  in  classes 
D01 ,  D02 ,  D03  and  D04. 

6.3.10  Class  D09,  D010,  D011,  D012 

These  classes  interpret  the  Sl'R  instruction  and  are  similar  to  the  ADD 
instruction  found  in  D01,  D02,  D03  and  D04 . 

6.4  Indirect  mapping 

To  avoid  the  necessity  of  reburning  the  mapping  PROMs  during  the  debug 
p’  ase,  the  entry  point  for  each  macro-instruction  is  indirectly  mapped. 
Direct  mapping  is  applied  to  each  class  of  instructions.  This  results  in 
the  need  to  re-burn  the  mapping  PROMs  only  if  the  number  of  instruction 
classes  is  altered.  The  post-processing  program  CPROC  (see  Appendix  IV) 
examines  the  listing  file  for  left  justified  labels  and  creates  a  mapping 
entry  for  each  such  label.  The  effect  of  the  indirect  mapping  is  to  add 
one  micro-cycle  to  the  instruction  timing.  When  the  microcode  is 
considered  stable  the  indirect  mapping  may  be  removed. 


6.5  Special  macro- instruct  ions 

The  40  bit  facilities  of  the  ARO  need  to  be  accessible  at  the  macro  level. 
Special  macro- instruct  ions  are  included  in  the  microcode  to  enable  the 
reading  and  writing  of  the  cache  memory  and  performing  40  bit  data 
dependent  processing  of  cache.  At  the  time  of  writing,  the  special  macro¬ 
instructions  had  only  been  partially  defined.  This  is  the  area  in  which 
future  expansion  of  the  microcode  is  anticipated. 

The  instruction  codes  17xxxx  are  used  for  these  special  macro- instructions . 
To  facilitate  using  this  group  as  they  are  defined,  the  specials  are 
organised  into  eight  sub-groups  decoded  by  the  field  selector  corresponding 
to  codes  170xxx  to  177xxx.  The  special  macro- instructions  of 
Appendix  1 1 1  .  14  are  tentative  in  nature  and  are  included  only  for  the  sake 
of  completeness.  The  special  macro- instruct  ions  will  be  the  subject  of  a 
separate  document  in  the  future. 
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7.  PROCESSOR  PERFORMANCE 

7.1  Limitations  and  exclusions 

The  entire  basic  instruction  set  of  the  PDP-11/34  has  been  microcoded  with 
the  exclusion  of  the  RESET  instruction.  (The  RESET  instruction  only 
pertains  to  the  operation  of  the  UNIBUS  and  hence  is  not  relevant  to  the 
hardware  configuration  of  the  Control  Processor). 

7.2  Processor  instruction  timing 

The  execution  time  for  an  instruction  depends  on  the  instruction  itself, 
and  on  the  addressing  modes.  In  the  most  general  case,  the  Instruction 
Execution  Time  is  the  sum  of  a  Fetch  Time,  a  Source  Address  Time,  a 
Destination  Address  Time,  and  an  Execute  Time. 

Instr  Time  =  Fetch  Time  +  SRC  Time  +  DST  Time  +  Exec  Time 

Some  of  the  instructions  require  only  some  of  these  times,  and  are  noted. 
All  instructions  require  the  Fetch  Time  which  takes  3  clock  cycles,  and  an 
Exec  Time  which  takes  at  least  1  cycle.  The  number  of  cycles  taken  by  each 
of  the  instructions  is  shown  in  Tables  3  to  8 .  The  time  taken  for  each 
micro-cycle  is  300  ns. 

7.3  Validation 

The  correct  execution  of  the  microcode  was  established  by  running  the 
microcode  on  an  emulator.  The  emulator  has  the  ability  to  accept  PDP-11 
source  code  and  execute  it.  To  prove  the  correctness  of  the  microcode,  the 
DEC  diagnostic  packages  CPAF  and  CPBG(rcf.6)  were  run  on  the  emulator. 
These  two  packages  test  the  in-line  code  and  the  extended  instruction  set 
respectively. 
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TABLE 


TABLE 


3.  TIMING  FOR  MISCELLANEOUS  INSTRUCTIONS 


INSTRUCTION 

EXEC  TIME  (CYCLES) 

HALT 

3 

WAIT 

4(incl  2  eye  loop) 

RTI 

8 

BPT 

1  I 

IOT 

11 

RTT 

9 

RTS 

4 

CC 

6 

MARK 

5 

TRAP 

5 

EMT 

5 

BR(uiicond) 

3 

BR(cond) 

4 

Instr  Time;  =  Fetch  Time 


+  Exec  Time 


4.  TIMING  FOR  JMP  AND  JSR  INSTRUCTIONS 


MODE 

EXEC  TIME 

(CYCLES) 

JMP 

JSR 

1 

2 

6 

2 

3 

7 

3 

4 

8 

4 

3 

7 

5 

4 

8 

6 

4 

9 

7 

6 

1 1 

Instr  Time  =  Fetch  Time  +  Exec  Time 
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TABLE  5.  TIMING  FOR  SINGLE  OPERAND  INSTRUCTIONS 


INSTR 

EXECUTE 

TIME  (CYCLES) 

WORD 

OPERAND 

BYTE  OPERAND 

M0DE=0 

MODE^O 

MODE=0 

MODE  1 0 

CLR 

1 

3 

1 

5 

COM 

1 

3 

2 

5 

INC 

1 

3 

3 

5 

DEC 

1 

3 

3 

5 

NEG 

1 

3 

2 

5 

ADC 

1 

3 

2 

5 

SBC 

2 

4 

4 

6 

TST 

1 

3 

1 

5 

ROR 

6 

8 

8 

9 

ROL 

6 

8 

7 

9 

ASR 

7 

9 

9 

10 

ASL 

6 

8 

7 

9 

SXT 

2 

4 

2 

4 

MTPS 

1 

3 

MFPS 

2 

3 

SWAB 

_ 

10 

_ 

13 

Instr  Time  =  Fetch  Time  +  DST  Time  +  Exec  Time 
(Note  that  DST  Time  is  only  added  if  DST  mode  *  0) 


TABLE  6.  TIMING  FOR  DESTINATION  AND  SOURCE  OPERANDS 


MODE 

DST  TIME 

(CYCLES) 

SRC  TIME 

(CYCLES) 

WORD 

BYTE 

WORD 

BYTE 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

2 

2 

2 

2 

5 

3 

3 

3 

3 

3 

4 

1 

1 

1 

1 

5 

3 

3 

3 

3 

6 

3 

3 

3 

3 

7 

5 

5 

5 

5 

TABLE  7.  TIMING  FOR  EXTENDED  INSTRUCTION  SET 


EXECUTION  TIME 

(CYCLES) 

SOURCE  MODE 

ADD  FOR 
EACH 
SHIFT 
POSITION 

M0DE=0 

MODF.i'O 

MUL 

32 

34 

- 

DIV 

40 

42 

- 

ASH( left) 

9 

11 

4 

ASH(right ) 

7 

9 

2 

ASHC( left) 

17 

19 

3 

ASHC (right ) 

17 

19 

2 

XOR 

1 

3 

- 

SOB 

4 

“ 

Instr  Time  =  Fetch  Time  +  SRC  Time  +  Exec  Time 
(Note  that  SRC  Time  is  only  added  if  DST  mode  ^  0) 


TABLE  8.  TIMING  FOR  DOUBLE  OPERAND  INSTRUCTIONS 


EXECUTE 

TIME  (CYCLES) 

INSTR 

SRC  MODE  =  0 

SRC  MODE  *  0 

DST 

DST 

DST 

DST 

M()DE=0 

MODE* 0 

MODE=0 

MODE  5s  0 

MOV 

1 

3 

3 

6 

CMP 

1 

3 

3 

6 

BIT 

1 

3 

3 

6 

BIC 

1 

3 

3 

6 

BIS 

1 

3 

3 

6 

ADD 

1 

3 

3 

6 

SUB 

1 

3 

3 

6 

MOVE 

4 

5 

5 

8 

CMPB 

4 

5 

5 

8 

BITB 

4 

5 

5 

8 

BICB 

4 

5 

5 

8 

BISB 

4 

S 

5 

8 

Instr  Time  =  Fetch  Time  +  SRC  Time  +  DST  Time  +  Exec  Time 
(Note  that  SRC  Time  is  only  added  if  SRC  mode  #  0 
and  DST  Time  is  only  added  if  DST  mode  t  0) 
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APPENDIX  I 


THE  SOURCE  FOR  THE 
INSTRUCTION  WIDTH  65 

FIELD  SRC  WIDTH  6  DEFAULT  0 
FORMAT; 

FIELD  AMODE  WIDTH  2  DEFAULT  0 
FIELD  AFIELD  WIDTH  4  DEFAULT  0 
END  FORMAT; 

FIELD  DST  WIDTH  5  DEFAULT  27Q 
FORMAT; 

FIELD  BMODE  WIDTH  2  DEFAULT  1 
FIELD  BFIELD  WIDTH  4  DEFAULT  7 
END  FORMAT; 

FIELD  MARS  WIDTH  1  DEFAULT  0 

FIELD  C2903  WIDTH  9  DEFAULT  8CH 
FORMAT 

FIELD  Il_4  WIDTH  4  DEFAULT  4 
FIELD  IZ  WIDTH  1  DEFAULT  0 
FIELD  1 5J  WIDTH  4  DEFAULT  OCH 
END  FORMAT; 

FIELD  C2904  WIDTH  15  DEFAULT  6440Q 
FORMAT 

FIELD  I 1 1_12  WIDTH  2  DEFAULT  0 
FIELD  I6_9  WIDTH  4  DEFAULT  6 
FIELD  I0_5  WIDTH  6  DEFAULT  44Q 
FIELD  EC  WIDTH  1  DEFAULT  0 
FIELD  CEU  WIDTH  1  DEFAULT  0 
FIELD  CEM  WIDTH  1  DEFAULT  0 
END  FORMAT; 

FIELD  CCMUX  WIDTH  3  DEFAULT  0 

FIELD  C2910  WIDTH  4  DEFAULT  0F.H 

FIELD  SOF  WIDTH  5  DEFAULT  OFH 

FIELD  IMMOP  WIDTH  16  DEFAULT  0 
FORMAT 

FIELD  SLWDTH  WIDTH  4  DEFAULT  0 
FIELD  TADDR  WIDTH  12  DEFAULT  0 
END  FORMAT; 

FIELD  ERROR  WIDTH  1  DEFAULT  0 
END  INSTRUCTION; 


MICRO  INSTRUCTION  FORMAT 

"MICRO  STORE  WIDTH"; 

"THE  A  REG  IS  THE  SRC"; 

"A-MODE  SELECT"; 

"A-SOURCE  SELECT" ; 

"THE  B  REC  IS  THE  DST"; 

"B-MODE  SELECT"; 

"B -SOURCE  SELECT"; 

"MEM  ADDR  REG  SELECT"; 

"2903  CONTROL"; 

"2903  FIELDS,  DEFAULT  TO  MOVD  OP"; 
"ALU  OPN  AND  SPECIAL  FNS"; 

"ALU  OPN"; 

"ALU  DEST  CNTRL  INC  SHIFT, SPEC"; 

”2904  CONTROL"; 

"2904  FIELDS"; 

"ALU  CARRY  IN  SEL,  DEF=INHIBIT" ; 
"SHIFT  LINKAGE  SET." ; 

"STATUS  REG  UPDATE  AND  TEST"; 
"CARRY  UPDATE,  DF,F=INHIBIT" ; 

"USR  UPDATE,  DEF= INHIBIT" ; 

"MSR  UPDATE,  DKF=INHIBIT" ; 

"TEST  CC  SELECT,  I)EF=UNCOND" ; 

"2'HO  CONTROL.  DKF=CONTINUE" ; 
"SPECIAL  OPERATION  FIELD 
DEF=E\AB LE  1 NTERRUPT" ; 

"IMMEDIATE  FIELD"; 

"DIRECT  UJUMP" ; 

"MIR  FIELD  SELECTOR  WIDTH"; 

"TARGET  ADDR  FOR  DIR  JUMP"; 

"SET  IF  ERROR"; 
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APPENDIX  II 

THE  SOURCE  FOR  THE  MICROP  DEFINITION  SECTION 


"THE  MICROP  DEFINITION  SECTION" 


II. 1  The  address  interpreter 

"ADDRESS  INTERPRETER  -  INVOKED  BY  2903  ALU  AND  SPECIAL  OPERATIONS" 


MICROP  @  RSN( OFFSET, WDTH ) , RDN , TMAR 
ASSIGN 

"DEFINITION  OF  LAST  FIELD (TMAR)" 
IF  (TMAR  EQ  ’MAR') 

THEN 

MARS=1 

ELSE 

IF  (TMAR  EQ  ' QIN ’ ) 

THEN 

10=1 

ELSE 

IF  (TMAR  EQ  'MARQ') 
THEN 

MARS=1  10=1 
ELSE 
FI 
FI 
FI 


"SET  UP  SRC , DST  FOR  2903" 


"WRITE  TO  MAR" 


"READ  FROM  Q" 


"WRITE  TO  MAR,  READ  FROM  Q" 


"DEFINITION  OF  SECOND  FI ELD (DESTINATION)" 

IF  (RDN  EQ  ’ZERO')  OR  (RDN  F.Q  'ONE')  OR  (RDN  EQ  'TWO') 

THEN  "FLAG  CATASTROPHIC  ERROR" 

ERR0R=3  "ATTEMPT  TO  OVERWRITE  CONSTANTS" 

ELSE 


FI 

IF  (RDN  GE  0)  AND  (RDN  LE  15) 
THEN 

DST=RDN 

ELSE 

IF  (RDN  GE  2011)  AND  (RD 
THEN 

DST=RDN - 1  OH 
ELSE 

IF  RDN  EQ  'RD' 

THEN 

DST=30Q 

ELSE 

IF  RDN  EQ  'RS' 
THEN 

DST=34Q 

ELSE 

IF  (RDN  EQ 
THEN 
15  8=6 
ELSE 
15  8=0C 


|R  (RDN  EQ  15H)  OR  (RDN  EQ  27Q) 
"DST  IS  GP  CPU  REG” 


LF,  23H) 

"REDEFINE  DEDICATED  CPU  REG" 


"DST  IS  DEFINED  BY  DD  FIELD" 


"DST  IS  DEFINED  BY  SS  FIELD" 


'QDST' ) 

"DST  IS  Q  REG" 

"STORE  F  IN  Q" 

"INHIBIT  RAM  WRITE  CYCLE" 
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FI 

"DEFINITION  OF  FIRST  FIELD(SOURCE)" 

IF  WDTH  GT  0  "TEST  FOR  FIELD  SEL  OPTION" 

THEN  "SET  UP  FIELD  SEL" 

AMODE=3  AFIELD=OFFSET  SLVDTH=16-WDTH 
ELSE 

IF  RSN  EQ  'RD' 

THEN  "SRC  SEL  FROM  DD  FIELD" 

SRC=18H 

ELSE 

IF  RSN  EQ  ’ PSW ’ 

THEN  "SRC  IS  PSW  (ALU  INHIBITED)" 

SOF=6  10  5=40Q 
ELSE 

IF  RSN  EQ  ’RS’ 

THEN  "SRC  IS  DEFINED  BY  SS  FIELD" 

SRC=10H 
ELSE 

SRC=RSN  "SRC  IS  GP  OR  DEDICATED  CPU  REG" 

FI  "SEF.  ASSEMBLER  DIRECTIVES  FOR  DEFINITION" 

FI 
FI 
FI; 


II. 2  The  Am2903  microps 
"MNEMONICS  SUGGESTED  BY  J.  Z1UKELIS" 

"ALU  MICROPS  -  CONTROLS  2903  -  DEFAULTS  TO  STORE  WORD  MODE" 

MICROP  SETF  RSN=0(OFFSET=0,WDTH=0) ,RDN=99,MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH) ,RDN, MAD 
114=0  DEFAULT  158=4  "SET  ALU  OUTPUT"; 

MICROP  DSUBS  RSN=0(OFFSET=0,WDTH=0) ,RDN=99,MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH) , RDN, MAD 
I 1_4=1  11112=1  DEFAULT  I5_8=4  "DST-SRC"; 

MICROP  SSUB  D  RSN=0(0FFSET=0,WDTH=0),RDN=99,NAD=0 
ASS  I GN  @  RSN ( OFFSET , WDTH ) , RDN , MAD 
I 1_4=2  11112=1  DEFAULT  15  8=4  "SRC-DST"; 

MICROP  S_ADD  D  RSN=0  (OFFSF,T=P  ,WDTH=0)  ,RDN=99  ,MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH) , RDN, MAD 
114=3  DEFAULT  158=4  "SRC+DST"; 

MICROP  MOVD  RSN=0(OFFSET=0 ,WDTH=0) ,RDN=99 ,MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH) , RDN, MAD 
I 1_4=4  DEFAULT  158=4  "DST  TO  F"; 

MICROP  NOT_D  RSN=0 (0FFSET=0 ,W'DTH=0) , RDN=99 ,MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH) , RDN, MAD 
114=5  DEFAULT  15  8=4  "NOT  DST"; 

MICROP  MOVS  RSN=0(OFFSET=0,WDT11=0) ,RDN=99 ,MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH) , RDN, MAD 
I 1_4=6  DEFAULT  158=4  "SRC  TO  F"; 

MICROP  NOTS  RSN=0(OFFSET=0,WDTH=0) ,RDN=99 ,MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH) , RDN, MAD 
1 14=7  DEFAULT  15  8=4  "NOT  SRC"; 

MICROP  CLR  RSN=0(0FFSET=0,WDTH=0) , RDN=99 , MAD=0 
ASSIGN  @  RSNCOFFSET, WDTH), RDN, MAD 
1 14=8  DEFAULT  15  8=4  "CLR  ALU  OUTPUT"; 

MICROP  NS  AND  D  RSN=0  (OFFSF.T=o',WI)Tii=0 )  , RDN=99  ,MAD=0 
ASSIGN  @  RSN (OFFSET, WDTH ), RDN, MAD 

114=9  DEFAULT  1 5  8=4  "NOT  SRC  AND  DST"; 
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MICROP  SNXORD  RSN=0(OFFSET=0 ,WDTH: 
ASSIGN  @  RSN (OFFSET, WDTH ) ,RDN, MAD 
I 1_4=0AH  DEFAULT  158=4 

MICROP  S_XOR_D  RSN=0 (OFFSET=0 ,WDTH= 
ASSIGN  @  RSN (OFFSET, WDTH ) ,RDN, MAD 
I 1_4=0BH  DEFAULT  15  8=4 

MICROP  SAND  D  RSN=0(OFFSET=0 ,WDTH=' 
ASSIGN  @  RSN (OFFSET, WDTH ) ,RDN, MAD 
I 1_4=0CH  DEFAULT  158=4 

MICROP  S_NOR_D  RSN=0(OFFSET=0  ,WDT!l=i 
ASSIGN  @  RSN (OFFSET, WDTH ), RDN, MAD 
II  4=0DH  DEFAULT  15  8=4 

MICROP  S_NAND_D  RSN=0 (OFFSET=o’,’WDTH= 
ASSIGN  @  RSN(OFFSET, WDTH) , RDN, MAD 
I 1_4=0EH  DEFAULT  158=4 

MICROP  S_OR_D  RSN=0(OFFSET=0 ,WDTH=0 
ASSIGN  @  RSN(OFFSET, WDTH) , RDN, MAD 
II  4=0FH  DEFAULT  15  8=4  ' 


=0) , RDN=99 ,MAD=0 

i 

"SRC  NXOR  I)ST"; 
0) , RDN=99 , MAD=0 

i 

"SRC  XOR  DST" ; 

0) ,RDN=99,MAD=0 

I 

"SRC  AND  DST"; 

0) , RDN=99 ,MAD=0 

"SRC  NOR  DST"; 
=0) ,RDN=99 ,MAD=0 

"SRC  NAND  DST”; 

) , RDN=99 , MAD=0 

"SRC  OR  DST"; 


"SPCFN  Ml CROPS  -  CONTROLS  2903" 
MICROP  MUL  RSN=0(0FFSET=0,WDTH= 
ASSIGN  @  RSN(OFFSET, WDTH) , RDN 
10=0  114=0  158=0 
MICROP  SMUL  RSN=0 (OFFSET=0 , WDTH 
ASSIGN  @  RSN (OFFSET, WDTH), RDN 
10=0  I 1_4=0  158=2 
MICROP  INC1  RSN=0 (0FFSET=0 .WDTH 
ASSIGN  <a  RSN (OFFSET, WDTH), RDN 
10=0  I 1_4=0  I5_8=4 
MICROP  INC2  RSN=0 (OFFSET=0 ,WDTH: 
ASSIGN  <3  RSN  (OFFSET,  WDTH),  RDN 
10=0  I 1_4=0  I5_8=4  Ill  12=1 
MICROP  CONV  RSN=0 (0FFSET=0 ,WDTH- 
ASSIGN  @  RSN (OFFSET, WDTH ), RDN 
10=0  I 1_4=0  I5_8=5 
MICROP  MULF  RSN=0(0FFSET=0 .WDTH 
ASSIGN  @  RSN (OFFSET, WDTH ), RDN 
10=0  I 1_4=0  I5_8=6 
MICROP  NMZS  RSN=0(OFFSET=0,WDTH 
ASSIGN  @  RSN (OFFSET, WDTH ), RDN 
10=0  114=0  I5_8=8 
MICROP  NMZD  RSN=0 (OFFSET=0 , WDTH 
ASSIGN  @  RSN (OFFSET, WDTH ), RDN 
10=0  I 1_4=0  I5_8=OAH 
MICROP  SDIV  RSN=0 (OFFSET=0 ,WDTH 
ASSIGN  @  RSN (OFFSET, WDTH), RDN 
T0=0  I 1_4=0  I5_8=0CH 
MICROP  FDIV  RSN=0 (OFFSET=0 ,WDTH 
ASSIGN  @  RSN (OFFSET, WDTH) , RDN 
10=0  II  4=0  15  8=0EH 


0) ,RDN=99 ,MAD=0 
,  MAD 

"MULT  OP"; 

=0 ) , RDN=99 , MAD=0 
,  MAD 

"SIGN  MULT"; 

=0) ,RDN=99 ,MAD=0 
,MAD 

"INC  BY  1"; 

=0)  ,RI)N=99,MAD=0 
,  MAD 

"INC  BY  2"; 

=0) ,RDN=99 ,MAD=0 
,  MAD 

"SIGN  MAG  TO  TWO  COMP"; 
=0)  ,RDN=99,MAI)=0 
,  MAD 

"MULT,  LAST  CYCLE"; 

=0) ,RDN=99,MAD=0 
,MAD 

"NORM  SINGLE  PREC"; 

=0) ,RDN=99,MAD=0 
,MAD 

"NORM  IlOBLF.  PREC"; 

=0) ,RDN=99,MAD=0 
,MAD 

"SIGN  DIVIDE"; 

=0 ) , RDN=9  9 , MAD=0 
,MAD 

"SIGN  DIV,  LAST  CYC"; 


II. 3  The  Am2904  microps 

"SHFT  MICROPS  -  CONTROLS  2903,  2904" 

MICROP  TST  ASSIGN  15  8=0CH  16  9=6  "TST  OP,  INHIBITS  WRITE"; 
MICROP  STO  ASSIGN  I5~8=4  16  9=6  "STO  OP,  STORES  WORD"; 

MICROP  STOB  ASSIGN  I5_8=0Flf  16_9=6  "STOB  OP,  STORES  BYTE"; 
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MICROP 

BSX 

ASSIGN 

16  9=6 

15  8=0EH 

"BSX 

OP, 

BYTE  SIGN  EXTEND"; 

MICROP 

ROR 

ASSIGN 

15  8=1 

16  9=9 

"ROR 

OP, 

AS  PER  PDP11"; 

- 

MICROP 

ROL 

ASSIGN 

15  8=9 

16  9=9 

"ROL 

OP, 

AS  PER  PDPll"; 

• 

« 

MICROP 

ASL 

ASSIGN 

15  8=9 

16  9=0 

"ASL, 

NOTE  SIGN  BIT  NOT  RELOADED"; 

STATUS  TEST 

OPTIONS" 

MICROP 

ULE 

ASSIGN 

CCMUX=1 

10  5=20Q 

"USR 

LE" 

• 

« 

MICROP 

UGT 

ASSIGN 

CCMUX=1 

10  5=2  IQ 

"USR 

GT" 

MICROP 

ULT 

ASSIGN 

CCMUX- 1 

I  O'  5=22Q 

"USR 

LT" 

MICROP 

UGE 

ASSIGN 

CCMUX=1 

10  5=23Q 

"USR 

GE" 

MICROP 

UEQ 

ASSIGN 

CCMUX= 1 

10  5=24Q 

"USR 

EQ" 

MICROP 

UNE 

ASSIGN 

CCMUX=1 

10  5=25Q 

"USR 

NE" 

MICROP 

uvs 

ASSIGN 

CCMUX= 1 

10"  5=26Q 

"USR 

V  SET"; 

• 

• 

MICROP 

UVC 

ASSIGN 

CCMUX=1 

I 0  5=2 7Q 

"USR 

V  CLEAR"; 

MICROP 

ucs 

ASSIGN 

CCMUX=1 

10  5=32Q 

"USR 

C  SET"; 

MICROP 

UCC 

ASSIGN 

CCMUX=1 

10  5=33Q 

"USR 

C  CLEAR"; 

MICROP 

ULOS  ASSIGN  CCMUX= 

1  10  5=34Q 

"USR  LOWER  OR  SAME"; 

MICROP 

UHI 

ASSIGN 

CCMUX=1 

10  5=3 5Q 

"USR 

HIGHER"; 

MICROP 

UMI 

ASSIGN- 

CCMUX= 1 

10  5=36Q 

"USR 

MINUS"; 

• 

• 

MICROP 

UPL 

ASSIGN 

CCMUX=1 

10 '5=37Q 

"USR 

PLUS"; 

MICROP 

MLE 

ASSIGN- 

CCMUX=1 

10  5=40Q 

"MSR 

LE" 

MICROP 

MGT 

ASSIGN 

CCMUX= 1 

10  5=4 IQ 

"MSR 

GT" 

MICROP 

MLT 

ASSIGN 

CCMUX=1 

10  5=42Q 

"MSR 

LT" 

MICROP 

MGE 

ASSIGN- 

CCMUX=1 

10  5=4 3Q 

"MSR 

GF." 

< 

MICROP 

MEQ 

ASSIGN 

CCMUX=1 

10  5=44Q 

"MSR 

EQ” 

• 

• 

MICROP 

MNE 

ASSIGN 

CCMUX= 1 

10  5=45Q 

"MSR 

NE" 

MICROP 

MVS 

ASSIGN- 

CCMUX= 1 

IO'  5=46Q 

"MSR 

V  SET"; 

MICROP 

MVC 

ASSIGN 

CCMUX=1 

10  5=47Q 

"MSR 

V  CLEAR"; 

MICROP 

MCS 

ASSIGN 

CCMUX= 1 

10  5=52Q 

"MSR 

C  SET"; 

MICROP 

MCC 

ASSIGN 

CCMUX= 1 

10  5=5 3Q 

"MSR 

C  CLEAR"; 

MICROP 

MLOS  ASSIGN  CCMUX= 

1  10  5=50Q  "MSR  LOWER  OR  SAME"; 

• 

• 

MICROP 

MHI 

ASSIGN- 

CCMUX= 1 

10  5=5  IQ 

"MSR 

HIGHER"; 

MICROP 

MM  I 

ASSIGN 

CCMUX=1 

10  _5=56Q 

"MSR 

MINUS"; 

MICROP 

MPL 

ASSIGN 

CCMUX=1 

10  5=5 7Q 

"MSR 

PLUS"; 

< 

"STATUS  UPDATE  MICKOPS  -  CONTROL  2904"  •  •, 

MICROP  MSR  ASSIGN  10  5=44Q  CEM=i  l.C=]  "LOAD  MSR"; 

MI  CROP  MSRCI  ASSIGN  10  5=30Q  CEM=1  EC=1  "LOAD  MSR  WITH  CARRY  INV"; 

MICROP  MSRNOC  ASSIGN  I0_5=44Q  CP.M-  l  "LOAD  MSR  WITH  NO  CARRY"; 

MICROP  MSRZ  ASSIGN  10  5=3  CF.M=1  KC=l  "CLEAR  MSR"; 

MICROP  USR  ASSIGN  10  5=44Q  GEl'=l  "LOAD  USR" ;  •  • 

MICROP  STOPSW  ASSIGN  10  5=0  KC=1  CEM=1 

S0F=11Q  IS  8=4  "TRANSFER  Y  TO  MSR”; 


"CCMUX  CONTROL  MI  CROPS" 

MICROP  UNCOND  ASSIGN  CCMUX=0 
MICROP  INTREQ  ASSIGN  CCMUX=2 


*  II. 4  Microsequencf1  “  mic. rops 

"TRSNFR  MI  CROPS  -  CONTROLS  29 10” 


"UNCOND  JUMP-DEFAULT"; 
"INTERRUPT  REQUEST  RECEIVED"; 


•  • 


•  • 
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MICROP 

JZ  ASSIGN  C29 10=0 

"JUMP  ZERO"; 

MICROP 

CJS  ASSIGN  C29 10=1 

"COND  JUMP  SUBR"; 

MICROP 

JMAP  ASSIGN  C29 10=2 

"JUMP  TO  MAP"; 

MICROP 

CJP  ASSIGN  C29 10=3 

"COND  JUMP  UIR"; 

MICROP 

PUSH  ASSIGN  C29 10=4 

"PUSH,  COND  LOAD  CNTR"; 

MICROP 

JSRP  ASSIGN  C29 10=5 

"COND  JUMP  SUBR,  CNTR  OR  UIR" 

MICROP 

CJV  ASSIGN  C29 10=6 

"COND  JUMP  VECTOR"; 

MICROP 

JRP  ASSIGN  C 2910=7 

"COND  JUMP  CNTR  OR  UIR"; 

MICROP 

RFCT  ASSIGN  C2910=8 

"REPEAT  LOOP" ; 

MICROP 

RPCT  ASSIGN  C29 10=9 

"REPEAT  UIR"; 

MICROP 

CRTN  ASSIGN  C2910=0AH 

"COND  RETURN"; 

MICROP 

CJPP  ASSIGN  C29 10=OBH 

"COND  JJ'MP  UIR"; 

MICROP 

I.DCT  ASSIGN  C2910=0CH 

"LOAD  COUNTER"; 

MICROP 

LOOP  ASSIGN  C29  10=0DH 

"TEST  END  OF  LOOP"; 

MICROP 

CONT  ASSIGN  C2910=0EH 

"USE  NEXT  UIR"; 

MICROP 

TWB  ASSIGN  C29 10=0FH 

"THREE  WAY  BRANCH"; 

II. 5  Subsidiary  microps 
"SUBSIDIARY  MICROPS" 

" JMP  DEFINITION  -  JUMPS  UNCONDITIONALLY  TO  ANY  'LABEL' 

IF  'INDEXED'  IS  LABEL  THEN  IMMEDIATE  FIELD  USED  AS  JUMP  ADDR" 
MICROP  JMP  LABEL  ASSIGN  CJP  UNCOND 
IF  (LABEL  NE  'INDEXED') 

THEN  "ASSIGN  I  .ABEL" 

TADDR=LABEL 

ELSE  "ADDRESS  ALREADY  CALC" 

FI; 


"JSR  DEFINITION  -  PUSHES  STACK  AND  UNCONDITIONALLY  JUMPS  TO  'LABEL' 
IF  'INDEXED'  IS  LABEL  THEN  IMMEDIATE  FIELD  USED  AS  JUMP  ADDR" 
MICROP  JSR  LABEL  ASSIGN  CJS  UNCOND 
IF  (LABEL  NE  ' INDEXED' ) 

THEN  "ASSIGN  LABEL" 

TADI)R=LABEL 

ELSE  "ADDRESS  ALREADY  CALC" 

FI  ; 


MICROP  RETURN  ASSIGN  CRTN  UNCOND  "UNCOND  RETURN"; 

MICROP  NEXT  ASSIGN  JMP  FETCH  "JUMP  TO  MACRO  FETCH  ROUTINE"; 

MICROP  TRAP  ASSIGN  ERROR=l  JMP  I  LG L  "ILLEGAL  INSTRUCTION"; 


1 1. 6  Memory  and  immediate  field  microps 
"MEMORY  CONTROL  MICROPS" 


MICROP  READ  ASSIGN  S0F=10H 
MICROP  WRITE  ASSIGN  S0F=14H 
MICROP  READB  ASSIGN  SOF=l  111 
MICROP  WRITEB  ASSIGN  SOF=15H 
MICROP  RE ADC  ASSIGN  SOF=13H 
MICROP  WRITEC  ASSIGN  SOF=17H 


"SET  MEM 
"SET  MEM 
"SET  MEM 
"SET  MEM 
"SET  MEM 
"SET  MEM 


CNTRL  BITS  FOR  READ"; 
CN'TRL  BITS  FOR  WRITE"; 
CNTL  FOR  BYTE  READ"; 
CNTL  FOR  BYTE  WRITE"; 
CNTL  FOR  CACHE  READ"; 
CNTL  FOR  CACHE  WRITE"; 


"IMMEDIATE  FIELD  CONTROL  MICROPS" 
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MICROP  PRESET=VAI,UE  ASSIGN  IMMOP=VAIAJE  "PRESET  IMMEDIATE  FIELD"; 


i 


•  4 


•  4 


•  I 


•  4 


( 
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APPENDIX  III 


THE  SOURCE  FOR  THE  PROGRAM  DEFINITION  SECTION 


III.l  The  symbol  definition  section 
PROGRAM  TEST  WIDTH  65  LENGTH  400H; 


"THE  PROGRAM  DEFINITION  SECTION" 
"SYMBOL  DEFINITIONS  FOR  THE  ASSEMBLER" 


'REG 

DEFN 

FOR 

RSN  (VIZ-  SRC  REG)" 

RO 

EQU 

0 

R1 

EQU 

1 

R2 

EQU 

2 

• 

R3 

EQU 

3 

R4 

EQU 

4 

R5 

EQU 

5 

R6 

EQU 

6 

SP 

EQU 

6 

R7 

EQU 

7 

• 

PC 

EQU 

7 

R8 

EQU 

8 

R9 

EQU 

9 

RIO: 

EQU 

10; 

ZERO  : 

EQU 

11  "LOAD  WLTH  0 

AT 

BOOT-UP"; 

ONE: 

EQU 

12  "LOAD  WITH  1 

AT 

BOOT-UP"; 

• 

TWO: 

EQU 

13  "LOAD  WITH  2 

AT 

BOOT-UP"; 

TEMP@ 

EQU 

14; 

TEMP: 

EQU 

15; 

RS 

EQU 

'RS 

# 

» 

PSW: 

EQU 

'PSW'  ; 

RD 

EQU 

'RD 

1 

• 

DRO: 

EQU 

20H 

DR1 : 

EQU 

2 1H 

DR2 : 

EQU 

22H 

I  MM: 

EQU 

23H 

DUMP  : 

EQU 

27Q 

FLDSEL: 

EQU 

'FLDSEL' ; 

• 

MAR: 

EQU 

' MAR ' ; 

QDST : 

EQU 

'QDST' ; 

QIN: 

EQU 

'QIN'; 

MARQ : 

EQU 

’  MARQ  ’  ; 

INDEXED 

EQU 

’ INDEXED* ; 

MC 

EQU 

44Q 

• 

MIR: 

EQU 

14H 

OPREG: 

EQU 

15H 

DUMMY  ADDR:  EQU  177176Q; 


III. 2  The  subsidiary  routines 

"SUBSIDIARY  ROUTINES  -  NOT  DIRECTLY  CALLED  BY  MAPPING  PROMS" 


"INTERRUPT  VECTOR  LOCATIONS" 


(10) :  MOVS  TEMP, DUMP  STO  PSW  JMP  ODDWORD 

(11) :  MOVS  TEMP, DUMP  STO  PSW  JMP  IILTRQ  " 

(12) :  MOVS  TEMP, DUMP  STO>SW  JMP  DCERR  " 


"ODD  WORD  ADDRESS"; 
HALT  REQUEST  VECTOR"; 
DATA  CHANNEL  ERROR"; 
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(13) :  MOVS  TEMP, DUMP  STO_PSW  JMP  DCRDY  "DATA  CHANNEL  READY"; 

(14) :  MOVS  TEMP, DUMP  STO_PSW  JMP  APINTCOND  "ARITH  PROC  TRAP"; 

(15) :  MOVS  TEMP, DUMP  STO_PSW  JMP  APINTRDY  "ARITH  PROC  READY";  • 

ORG  10H  "START  SUBSIDIARY  ROUTINES  AT  LOC  16"; 


"SAVE  PSW,  PC  ON  PDP11  STACK" 

SAVE:  MOVS  PSV.DRO 

D  SUBS  TWO, R6, MAR  WRITE 

D  SUBS  TWO, R6, MAR 

MOVS  R7,DR^  WRITE  RETURN 


"ILLEGAL  INSTUCTION  TRAP" 

ILGL:  MOVS  1MM.TEMP  PRESET=10Q 

JMP  GTVCTR 
CONT 
CONT 


"DRO=PSW,  MORE"; 

"R6=R6-2,  PUSH  TO  STACK,  MORE"; 
"R6=R6-2,  MORE"; 

"DR0=PC ,  PUSH  TO  STACK,  END"; 


"VECTOR  FOR  ILLEGAL  INSTR" ; 
"GET  NEW  PC, PS"; 

"DUMMY  TO  PRESERVE  UAR"; 
"DUMMY  TO  PRESERVE  UAR"; 


"MACRO  FETCH  ROUTINE,  (PRESERVE  UNA=31  FOR  FETCH)" 


FCHSPC :  MOVS  R7..MAR 
FETCH:  MOVS  R7,,MAR 
CJP  INTREQ 

@FETCH:  DST=MIR 

INC 2  ,R7  JMAP 


READ  JMP  UFETCH  "FETCH  NO  INTRPT" ; 

READ  "MAR=PC" 

TADDR= INTROUT  "JUMP  TO  INTERRUPT  HANDLER  IF 
INTERRUPT  PRESENT"; 

"LOAD  MIR,  MORE"; 

"INC  PC,  JUMP  TO  START  ADDR"; 


"SUBSIDIARY  ROUTINES (CONTINUED) 


"GET  NEW  PC, PS  POINTED  TO  BY  TEMP" 
GTVCTR:  "OLD  PC, PS  SAVED  ON  STACK" 


”PC=(TEMP) ,PS=(TEMP+2) 


"PRESERVE  UNA=34  FOR 
JSR  SAVE 

MOVS  TEMP,, MAR  READ 

INC2  ,TEMP 

MOVS  DRO ,R7 

MOVS  TEMP,, MAR  READ 

CONT 

MOVS  DRO, DUMP  STO  PSW 


GTVCTR" 

"SAVE  OLD  PC, PS  ON  STACK"; 
"RETRIEVE  NEW  PC"; 

"POINT  TO  NEW  PS"; 
"PC=(TEMP)" ; 

"RETRIEVE  NEW  PS"; 

"WAIT"; 

NEXT  "PS=(TEMP+2 ) ,  END"; 


"INTERRUPT  HANDLER  ROUTINE" 

INTROUT:  I)ST=MIR 

MOVS  PSW, TEMP 
SOF=5  CJV  UNCON'D 


"DUMMY  PRESERVES  DR"; 

"SAVE  PSW,  MORE"; 

"ENABLE  VECTOR,  JUMP  TO  DEFINE 
IN'TR  TYPE,  JUMP  BACK  TO  INTRl"; 


"MACRO  INTERRUPT  HANDLER" 

"HLTRQ  IN  INVOKED  FROM  HOST  BY  SETTING  M-BIT  IN  INTERFACE" 

HLTRQ:  MOVS  I  MM. TEMP  PKESKT=240Q  "VECTOR  VIA  240Q"; 

JMP  GTVCTR  "JUMP  TO  VECTOR"; 
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ODDWORD:  MOVS  I MM, TEMP  PRESET=4Q 
JMP  GTVCTR 

DCERR :  MOVS  IMM.TEMP  PRESET=110Q 
JMP  GTVCTR 


"VECTOR  VIA  4Q"; 
"JUMP  TO  VECTOR"; 
"VECTOR  VIA  110Q"; 
"JUMP  TO  VECTOR"; 


DCRDY :  MOVS  I MM, TEMP  PRESET=114Q  "VECTOR  VIA  114Q"; 

JMP  GTVCTR  "JUMP  TO  VECTOR"; 

APINTCOND:  MOVS  I MM, TEMP  PRESET=120Q  "VECTOR  VIA  120Q"; 

JMP  GTVCTR  "JUMP  TO  VECTOR"; 

APINTRDY:  MOVS  I MM, TEMP  PRESET=124Q  "VECTOR  VIA  124Q"; 
JMP  GTVCTR  "JUMP  TO  VECTOR"; 


"REGDST  -  ROUTINE  TO  PLACE  (MIR68  OR  1)  IN  MIRO  2 
VIZ  SS  OR  1  IN  DD  FIELD 
THIS  IS  USED  AS  REG  DST  IN  MUL,  DIV,  ASHC  INSTR 
TECNIQUE-  FIELD  SELECTOR  GENERATES  SSSOOOSS1,  LOAD  INTO  MIR 
VIA  DUMMY  WRITE  CYCLE" 


REGDST:  MOVS  IMM.DRO  PRESET=700Q 
S_AND  D  FLDSEL(0 , 9 ) , DRO 
S_OR_D  FLDSEL(6 , 3) ,DR0 
S  OR_D  ONE, DRO 


"DRO=RS  MASK,  MORE"; 
"DRO=SSSOOOOOO ,  MORE" 
"DRO=SSSOOOSSS,  MORE" 
"DRO=SSSOOOSS 1 ,  MORE" 


MOVS  I MM , , MAR  PRESET=DUMMY  ADDR 


WRITE 

DST=MIR  RETURN 


"MAR=DUMMY  ADDR, END"; 
"MIR=DRO,F.ND"; 


"FIXES  OVERFLOW  BIT  AFTER  ROTATES/SHIFTS  " 
FIXCC :  10  5=16Q  CEU=1  "RESET 


IXCC :  I0_5=16Q  CEU=1 

U MI  CJP  TADDR=NSET 
NCLR :  MCS  CJP  TADDR=SETV 
XIT :  I0__5=2  CEM=1  CEU=1  NEXT 

NSET:  MCS  CJP  TADDR=XIT 
SETV :  10  5=1 7Q  CEU=1  JMP  XIT 


"RESET  UV"; 

"JMP  IF  UN  SET"; 

"JMP  IF  MC  SET(AND  UN  CLR) " ; 
"SW'AP  REG(MC  RETAIN),  END"; 
"EXIT  IF  MC  SETCAND  UN  SET)"; 
"SET  UV  AND  EXIT"; 


1 1 1. 3  Address  evaluation 

"ADDRESS  EVALUATION  ROUTINE  -  WORD  INSTRUCTIONS" 
"DD  FIELD" 


DBASE:  TRAP 

MOVS  RD , ,MAR  READ 
MOVS  RD , ,MAR  READ 
MOVS  RD , , MAR  READ 
D  SUB_S  TWO, RD, MAR 
D^SUB  S  TWO, RD, MAR 
MOVS  R 7,, MAR  READ 
MOVS  R7,,MAR  READ 


DD2  : 

INC2 

, RD  RETURN 

ff 

l 

DD3 : 

INC  2 

,RD 

II 

i 

MOVS 

DRO,, MAR  READ 

RETURN  "] 

DD5  : 

CONT 

”\ 

MOVS 

DRO,, MAR  READ 

RETURN  "1 

DD6 : 

INC2 

,R7 

ll 

S  ADD 

D  DRO, RD, MAR 

TST 

READ 

DD7  : 

INC  2 

,R7 

It 

S  ADD 

D  DRO, RD, MAR 

TST 

READ 

CONT 

"1 

”MODE=0  IS  ILLEGAL"; 

RETURN  "MODE=l ,  FETCH  OPND,  END"; 

JMP  DD2  "MODE=2,  FETCH  OPND,  MORE"; 

JMP  DD3  "MOI)E=3,  FETCH  ADDR,  MORE"; 

READ  RETURN  "M0DF.=4,  DEC  RD,  FETCH  OPND" 
READ  JMP  DD5  "MODE=5,DEC  RD,  FETCH  ADDR" 
JMP  DD6  "MODE=6 ,  FETCH  INDEX,  MORE"; 

JMP  DD7  "MODE=7,  FETCH  INDEX,  MORE"; 

"AUTO  INC,  END"; 

"AUTO  INC,  MORE"; 


WAIT  FOR  MEM,  MORE’ 
FETCH  OPND,  END"; 
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MOVS  DRO,, MAR  READ  RETURN  ”RD=(PC+INI)F.X+4)  ,  FETCH  OPND.END"; 


"ADDRESS  EVALUATION  ROUTINE  -  BYTE  INSTRUCTIONS" 
"ONLY  CHANGE  IS  TO  MODF.=2  AND  4" 


DBASEB : 


DB2 : 

DB3  : 
DB4 : 

DBS: 
DB6 : 
DB7  : 


TRAP  "M0DF.=0  IS  ILLEGAL"; 

MOVS  RD, ,MAR  READB  RETURN  "MODE=l,  FETCH  OPND,  END"; 

MOVS  RD..MAR  READB  JMP  DB2  "MODE=2 ,  FETCH  OPND,  MORE"; 

MOVS  RD,  ,MAR  READ  JMP  DB3  "MODF.=3 ,  FETCH  ADDR ,  MORE"; 

MOVS  FLDSF.L(0,3)  .TEMP  *  JMP  DB4  "MODE=4,  TFMP(j=REG  NO,  MORE"; 

D  SUBS  TWO, RD, MAR  READ  JMP  DBS  "MOI)E=S,DFC  RD,  FETCH  ADDR"; 
MOVS  R7..MAR  READ  JMP  DBb  "M0DF=6 ,  FETCH  INDEX,  MORE"; 

MOVS  R7..MAR  READ  JMP  DB7  "MODE=7,  FETCH  INDEX,  MORE"; 

" I NC2  IF  Rb,  R7  RELATIVE  INSTR" 
MOVS  FLDSF,L(0,3)  .TEMPO  "TEMP,  =DST  REG  NO, MORE"; 

D_SUB_S  IMM, TEMPO  USR  PRESET=b  "TEMPO  GE  0  FOR  R6,R7"; 

INC1  ,RD  CRTS'  Ur,T  "RET  IF  LT  0,  MORE"; 

I  NCI  ,RD  RETURN  "INC1  IF  Rt>,R7  REL,  END"; 

INC2  , RD  "AUTO  INC,  MORE"; 

MOVS  DRO , , MAR  READB  RETURN  "FETCH  OPND,  END"; 

"DEC  BY  2  IF  R6,  R7  REL" 

IMM, TEMPO  USR  PRESET=6  "TEMP!  GE  0  FOR  R6,R7"; 

ONE, RD, MAR  READB  CRTS  ULT  "RETURN  IF  NOT  R6,R7"; 

ONE , RD  RETURN  "RETURN  FOR  Rb,R7"; 

"WAIT  FOR  MEM,  MORE"; 

READB  RETURN  "FETCH  OPND.  END"; 

"INC  PC(VIZ  ORIG  PC+4)  ,  MORE"; 
TST  READB  RETURN  "MAR=PC+INDEX+4 ,  END"; 

"INC  PC(VIZ  ORIG  PC+4)  ,  MORE"; 
TST  READ  "MAR=PC+INDEX+4,  MORE"; 

"WAIT  FOR  MEM 


D  SUB 
D_SUB 
D_SUB 
CONT 

MOVS  DRO , , MAR 
INC2  ,R7 

SADD  D  DRO, RD, MAR 
INC2  ,R7 

S  ADD_D  DRO, RD, MAR 
CONT 


MOVS  DRO,, MAR  READB  RETURN  ”RD=(PC+INDEX+4) ,  FETCH  OPND.END’ 


"SS  FIELD  ADDRESS  EVALUATION" 


SBASE :  TRAP 


’MODE=0  IS  ILLEGAL"; 


MOVS 

RS, ,MAR 

READ 

RETURN 

"MODE=l ,  FETCH  OPND,  END"; 

MOVS 

RS, ,MAR 

READ 

JMP  SS2 

"MODE=2 ,  FETCH  OPND,  MORE"; 

MOVS 

RS, ,MAR 

READ 

JMP  SS3 

"MODE=3 ,  FETCH  ADDR,  MORE"; 

D  SUB 

IS  TWO, RS, MAR 

READ  RETURN  "M0DE=4 ,  DEC  RS,  FETCH  OPND 

D  SUB 

i  S  TWO , RS 

; ,  MAR 

READ  JMP  SS5  "MODE=5,DEC  RS,  FETCH  ADDR 

MOVS 

R7 , ,MAR 

READ 

JMP  SSf> 

"MODE=6,  FETCH  INDEX,  MORE"; 

MOVS 

R7 , ,MAR 

READ 

JMP  SS7 

"MODE=7 ,  FETCH  INDEX,  MORE"; 

SS2 : 

INC2 

,RS  RETURN 

"AUTO  INC,  END"; 

SS3  : 

INC2 

,  RS 

"AUTO  INC,  MORE"; 

MOVS 

DRO, , MAR 

READ 

RETURN 

"FETCH  OPND,  END"; 

SS5 : 

CONT 

"WAIT  FOR  MEN,  MORE"; 

MOVS 

DRO, ,MAR 

READ 

RETURN 

"FETCH  OPND,  END"; 

SS6 : 

INC2 

,R7 

"INC  PC(VIZ  ORIG  PC+4)  ,  MORE"; 

SADDD  DRO, RS , MAR 
SS7 :  INC2  ,R7 

S  ADDD  DRO, RS, MAR 
CONT 

MOVS  DRO,, MAR  READ 


TST  READ  RETURN  "MAR=PC+INDEX+4 ,  END"; 

"INC  PC(VIZ  ORIG  PC+4)  ,  MORE"; 

TST  READ  "MAR=PC+ I NDEX+4 ,  MORE"; 

"WAIT  FOR  MEM  "; 

RETURN  ”RD=(PC+INDEX+4) ,  FETCH  OPND.END"; 


"ADDRESS  EVALUATION  ROUTINE  -  BYTE  INSTRUCTIONS" 
"ONLY  CHANGE  IS  TO  MODE=2  AND  4" 
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SBASEB :  TRAP  "MODE=0  IS  ILLEGAL"; 

MOVS  RS , ,MAR  READB  RETURN  "MODE=l,  FETCH  0 PND,  END"; 

MOVS  RS , ,MAR  READB  JMP  SB2  "MODE=2,  FETCH  OPND,  MORE"; 

MOVS  RS , ,MAR  READ  JMP  SB3  "MODE=3,  FETCH  ADDR ,  MORE"; 

MOVS  FLDSEL(6 , 3 ) ,TEMP@  JMP  SB4  "M0DE=4 ,  TEMFW=REG  NO,  MORE"; 
D_SUB_S  TWO, RS, MAR  READ  JMP  SB5  "MODE=5,DEC  RS,  FETCH  ADDR 
MOVS  R7,,MAR  READ  JMP  SBb  "MODE=6,  FETCH  INDEX,  MORE"; 

MOVS  R7,,MAR  READ  JMP  SB7  "MODE=7 .  FETCH  INDEX,  MORE"; 

SR2:  "INC2  IF  R6,  R7  RELATIVE  INSTR" 

MOVS  FLDSEL(6,3)  ,TEMP(1  "TEMP(a=SRC  REG  NO, MORE"; 

D  SUB  S  IMM.TEMPja  USR  PRESF.T=6  "TEMP@=TEST  VAL.MORE" ; 


I  NCI 

,  RS 

CRTN 

ULT 

"RETURN  IF  NOT  R6,R7,MORE"; 

I  NCI 

,RS 

RETURN 

"RETURN  IF  R6,R7  REL,  END"; 

SB3 : 

1NC2 

,RS 

"AUTO  INC,  MORE"; 

MOVS 

DRO, 

,MAR 

READB 

RETURN  "FETCH  OPND,  END”; 

SB4 :  D  SUB  S  I MM, TEN P@  USR  PRESET=6  "TEMP^  GE  0  IF  R6,R7"; 

D_SUB_S  ONE, RS, MAR  READB  CRTN  ULT  "RETURN  IF  NOT  R6,R7"; 
DSUB  S  ONE ,RS  RETURN  "RETURN  IF  R6.R7,  END"; 

SB5 :  CONT  "WAIT  FOR  MEM,  MORE"; 

MOVS  DRO , , MAR  READB  RETURN  "FETCH  OPND,  END"; 

SB6 :  INC2  ,R7  "INC  PC(VIZ  ORIG  PC+4)  ,  MORE"; 

S  ADDD  DRO, RS, MAR  TST  READB  RETURN  "MAR=PC+INDEX+4 ,  END" 
SB7 :  INC2  ,R7  "INC  PC (VIZ  ORIG  PC+4)  ,  MORE"; 

SADDD  DRO, RS, MAR  TST  READ  "MAR=PC+INDEX+4 ,  MORE"; 

CONT  "WAIT  FOR  MEM  "; 

MOVS  DRO,, MAR  READB  RETURN  "RS=(PC+INDEX+4) ,  FETCH  OPND, END 


III. 4  Class  Ml  (miscellaneous) 

"PDP  11  INSTRUCTION  DESCRIPTION” 

"ALL  LABELS  WHICH  ARE  LEFT  JUSTIFIED  APPEAR  IN  MAPPING  PROM" 
"MISCELLANEOUS  INSTRUCTIONS  -  CLASS  Ml" 

"HALT,  WAIT,  RTI ,  BPT,  IOT,  RESET,  RTT" 


Ml: 


HALT: 

WAIT: 

RTI: 

BPT: 
IOT: 
RESET: 
RTT: 
@WAIT : 

@RTI: 


@BPT : 
@IOT: 


CLASS  START  ADDR  FROM  MAPPING  PROM" 


S_ADD_D  FLDSEL(0 , 3) , I MM 
TADDR=$+1  JMP  INDEXED 
SOF=30Q  NEXT 
JMP  @WAIT 

"RETURN 

MOVS  R6,,MAR  READ  JMP  (3RTI 
JMP  @ BPT 
JMP  @IOT 
TRAP 
JMP  RTI 

CJP  INTREQ  TADDR= INTROUT 
JMP  @WAIT 
CONT 

MOVS  DRO , R7 
INC 2  ,R6,MAR  READ 
CONT 

MOVS  DRO, DUMP  STO  PSW 
INC2  ,R6  JMP  FCHSPC 
MOVS  I MM, TEMP  PRESET=14Q 
JMP  GTVCTR 

MOVS  IMM.TEMP  PRESF.T=16Q 
JMP  GTVCTR 


"JUMP  TO  Ml  INSTR"; 

"HALT  FOR  HOST  TO  CLEAR"; 
"LOOP  WAITING  FOR  INTERRUPT"; 
FROM  INTERRUPT  OR  TRAP  INSTR" 
"POP  PC  FROM  STACK,  MORE"; 
"BREAK  POINT  INSTR"; 

"IOT  INSTR"; 

"RESET  MEANINGLESS"; 

"RTT  SAME  AS  RTl" ; 

"TEST  FOR  INTERRUPT,  MORE"; 
"LOOP  TO  TEST  AGAIN"; 

"WAIT  FOR  NEW  PC,  MORE"; 
"RESTORE  PC,  MORE"; 

"POP  PSW  FROM  STACK,  MORE"; 
"WAIT  FOR  NEW  PSW,  MORE"; 
"RESTORE  PSW,  MORE"; 

"FrX  STACK  POINTER,  END"; 
"VECTOR  VIA  14Q"; 

"GET  NEW  PC, PS"; 

"VECTOR  VIA  16Q"; 

"GET  NEW  PC, PS"; 
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1 1 1.  5  Class  JUMP ,RTS ,CC 
" JMP  INSTRUCTION  -CLASS  JUMP" 


JUMP : 


"CLASS  START  ADDR  FROM  MAP" 


@JUMP2 : 
@ JUMP 3: 

(3JUMP4  : 
@JUMP5 : 

@ JUMP 6 : 

@JUMP7 : 


SADDD  FLDSEL ( 3 , 3 ) , I MM 
TADDR=$+1  JMP  INDEXED 
TRAP 

MOVS  RD ,R7  NEXT 
MOVS  RD ,R7  JMP  &JUMP2 


"DD  MODE  GIVES  OFFSET,  MORE"; 
"MODE=0  IS  ILLEGAL,  END"; 

"MODE=l,  PC=RD ,  END"; 

"MODE=2 ,  PC=RD ,  MORE"; 

MOVS  RD..MAR  READ  JMP  0 JUMP 3  "MODE=3,  RD=ADDR ,  MORE"; 

D_SUB  S  TWO , RD  JMP  (3JUMP4  "M0I)E=4 .DEC  RD , MORE" ; 

D_SUB~S  TWO, RD. MAR  READ  JMP  GUUMP5  "MODE=5,DEC  RD.FTCH  ADDR"; 
MOVS  R7..MAR  READ  JMP  MJUMP6  "MODE=6 , FETCH  INDEX, MORE"; 

JMP  C-JUMP7  "MODE=7  , FETCH  INDEX, MORE"; 


MOVS  R7..MAR  REAn 
INC2  , RD  NEXT 
INC 2  , RD 

MOVS  DRO.R7  NEXT 
MOVS  RD,R7  NEXT 
CONT 

MOVS  DRO ,R7  NEXT 
INC2  ,R7 

S  ADD  D  DR0.R7  NEXT 
INC2  , R7 

SADDD  DRO , R7  READ 
CONT 

MOVS  DRO.R7  NEXT 


"AUTO  INC,  END"; 

"AUTO  INC,  MORE"; 

"PC=( ADDR) ,  END"; 

"PC=ADDR ,  END"; 

"WAIT  FOR  MEM,  MORE"; 
"PC=(ADDR) ,  END"; 

"INC  R7 (VIZ  PC+4) ,  MORE"; 
"R7=PC+INDEX+4,  END"; 

"INC  R7 (VIZ  PC+4),  MORE"; 
"FETCH  ADDR,  MORE"; 

"WAIT  FOR  FETCH"; 
"R7=(PC+INDEX+4) ,  END"; 


"RETURN  FROM  SUBROUTINE  INSTRUCTION  -CLASS  RTS" 

"RTS" 

RTS:  MOVS  RD,PC  "RTS  OP,  PC=RD,  MORE";  .  ; 

MOVS  R6 , , MAR  READ  ”SP  TO  MAR,  MORE";  •  "  • 

INC 2  ,R6  "INC  SP,  MORE"; 

MOVS  DRO , RD  NEXT  "LINK  REG=  TOP  OF  STACK,  END"; 


"CONDITION  CODE  INSTRUCTIONS  -  CLASS  CC" 

"CLN ,  CLK,  CLV ,  CLC ,  CCC ,  SEN,  SEZ.SEV,  SEC,  SCC" 


CC: 


"CLASS  START  ADDRESS  FROM  MAP" 
"OPCODES  00  02  10  TO  00  02  37  ARE  ILLEGAL" 
MOVS  I MM, TEMP  PRESET=40Q  "TEMP=BAD  CODE  LIMIT,  MORE"; 

S  SUB  D  FLDSEL(0 ,6) ,TEMP  USR  "USR  NEG  IF  CODE  ILGL,  MORE"; 


CJP  UMI  TADDR=ILGL 
MOVS  PSW.TEMP 
SADDD  FLDSEL(4 , 1 ) , I MM 
TADDR=S+1  JMP  INDEXED 
NS_AND_D  FLDSEL (0,4) .TEMP 
STO  PSW  NEXT 
S_OR  D  FLDSELfO ,4) .TEMP 
STO  PSW  NEXT 


"JUMP  IF  CODE  ILGL"; 

"EXTRACT  PSW"; 

"JMP  FOR  SET  CC,  MORE"; 

"CLEAR  CC,  MSR=RESULT,  MORE”; 

"SET  CC,  MSR=RESULT,  END"; 


•  • 


• 


III .6  Class  SWAB.BR  and  JSR 
"SWAB  INSTRUCTION  -  CLASS  SWAB" 


"MODE  F.Q  0" 


SWAB  1 : 
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MOVS  RD.TEMP  JSR  R0T8  "TEMP=RD ,  JUMP  TO  ROTATE  BY  8"; 

MOVS  TEMP.RD  NEXT  "RESTORE  TO  RD,  END"; 

R0T8 : 

MOVD  .TEMP  I 6_9=0AH  15  8=9  MSRZ  "ROTATE  LEFT" 

PUSH  UNCOND  PRF,SET=6  "LOAD  C0UNTER=6,  MORE"; 

MOVD  .TEMP  16  9=0AH  15  8=9  RFCT  "ROTATE,  LOOP  6  TIMES"; 

MOVS  TEMP,TEMP@  I5_8=0EH  "TEMP@  IS  DUMMY, SIGN  EXT"; 

MOVD  ,TEMP@  MSR  RETURN  "SIGN  EXTEND  TO  FIX  CC,  END"; 

SWAB 2 :  "MODE  NE  0" 

S_ADD_D  FLDSEL( 3,3),  I MM 

TADDR=DBASE  JSR  INDEXED  "FETCH  DST  OPND ,TADDR=DBASE+MODE" 
CONT  "WAIT  FOR  MEM"; 

MOVS  DRO, TEMP  JSR  R0T8  "TEMP=DRO ,  JUMP  TO  ROTATE  BY  8"; 

MOVS  TEMP.DRO  WRITE  NEXT  "RESTORE  TO  DRO ,  END"; 


"BRANCH  INSRUCTIONS" 

"BR,  BNE ,  BEQ,  BGE ,  BLT  BGT ,  BLE" 
"BRANCH  INSTRUCTIONS  -  CLASS  BR" 


BR: 

MOVS  FLDSEL(0 ,8) ,TEMP  BSX 

"TEMP=OFFSET(SIGN  EXT) .MORE"; 

MOVD  , TEMP  15  8=9  16  9=2 

"0FFSET‘:2 ,  MC  UPDATE  INHIBIT" 

S  ADD  D 

TEMP ,R7  NEXT 

"PC=PC+2*0FFSET,  END"; 

BNE: 

CJP  MNE 

TADDR=BR 

"IF  2=0  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BEQ: 

CJP  MEQ 

TADDR=BR 

"IF  Z=1  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BGE: 

CJP  MGE 

TADDR=BR 

"IF  GE  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BLT: 

CJP  MLT 

TADDR=BR 

"IF  LT  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BGT: 

CJP  MGT 

TADDR=BR 

"IF  GT  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BLE: 

CJP  MLE 

TADDR=BR 

"IF  LE  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

"JSR  INSTRUCTION  -  CLASS  JSK(«f" 


JSR@:  "CLASS  START  ADDR  FROM  MAP" 

S_ADD_D  FLDSEL(3 , 3 ) , I MM 

TADDR=$+1  JMP  INDEXED  "DD  MODE  GIVES  OFFSET,  MORE"; 
JSRO :  TRAP  "M0DE=0  IS  ILLEGAL"; 

JSR1 :  MOVS  RD.TEMP  JMP  STAKO  "M0DE=1 ,  SAVE  RD,  MORE"; 

JSR2 :  MOVS  RD.TEMP  JMP  Q-JSR2  "M0DE=2 ,  SAVE  RD,  MORE"; 

JSR3 :  MOVS  RD , , MAR  READ  JMP  0JSR3  "M0DE=3,  READ  (RD) ,  MORE"; 

JSR4:  D_SUB_S  TWO.RD  JMP  tJSR4  "M0DE=4 ,  DEC,  MORE"; 

JSR5 :  DSUBS  TWO.RD, MAR  READ  JMP  fJJSR5  "M0DE=5 , DEC , FTCH  ADDR"; 

JSR6 :  MOVS  R7..MAR  READ  JMP  0JSR6  "M0DE=6 ,  FETCH  INDEX,  MORE"; 

JSR7 :  MOVS  R7 , , MAR  READ  JMP  Cp JSR 7  "M0DE=7 ,  FETCH  INDEX,  MORE"; 

(3JSR2 :  INC  2  ,RD  JMP  STAKO  "AUTO  INC,  MORE"; 

@JSR3:  INC 2  , RD  "AUTO  INC,  MORE"; 

MOVS  DRO, TEMP  JMP  STAKO  "TEMP=DRO,  MORE"; 

@JSR4 :  MOVS  RD.TEMP  JMP  STAKO  "TEMP=DRO,  MORE"; 

(2JSR5:  CONT  "WAIT  FOR  MEM"; 

MOVS  DRO, TEMP  JMP  STAKO  "TEMP=OPND ,  MORE"; 

@JSR6:  INC2  ,R7  "INC  R7 ,  MORE"; 

MOVS  DRO, TEMP  "TF,MP=INDEX,  MORE"; 

S_ADD_D  R7.TEMP  JMP  STAKO  "TEMP=0R1G  PC+INDEX+4,  MORE"; 
@JSR7 :  INC2  ,R7  "INC  R7,  MORE"; 


MOVS  DRO, TEMP 


"TEMP* INDEX,  MORE"; 
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STAKO : 


S  ADD_D  R7.TEMP  READ 
CONT 

MOVS  DRO .TEMP  JMP  STAKO 
MOVS  RS ,DRO 


"TEMP=ORIG  PC+INDEX+4,  MORE"; 
"WAIT  FOR  MEM"; 

"TEMP=(0R1G  PC+INDEX+4),  MORE"; 
"DRO=LINKAGE  REG,  MORE"; 


D  SUB  S  I  MM,  R6,  MAR  WRITE  PRF.SET=2  "PUSH  STACK"; 


MOVS  R7 , RS 

MOVS  TEMP, R 7  NEXT 


RS=PC  ; 

"PC=SUBR  ADDR"; 


1 1 1.  7  Class  SOI , S02 , SO 3 , S04 , SOS 
"SINGLE  OPERAND  INSTRUCTIONS" 

"CLK,  COM,  INC,  DEC,  NEG,  ADC,  SBC,  TST ,  ROR ,  ROL,  ASR,  SXT,  MARK, 
MFPI ,  MTPI" 

"SINGLE  OPERAND  INSTRUCTIONS  -  CLASS  SOI” 

"  DST  MODE  EQ  0" 

CLR 1 :  CLR  ,RD  MSR  NEXT  "CLR  OP,  END"; 

COM  1 :  NOT_D  , RD  MSRCI  NEXT  "COM  OP,  END”; 

INC@1:  INC  1  , RD  MSRNOC  NEXT  "INC  OP,  END"; 

DEC1 :  D_SUB_S  ONE , RD  MSRNOC  NEXT  "DEC  OP,  END"; 

NEG1 :  NOT  D  , RD  1 1 1_ 12=1  MSRCI  NEXT  "NEG  OP,  END"; 

ADC  1 :  MOVD  , RD  1 1 112=3  MSR  NEXT  "ADC  OP,  END"; 

SBC  1 :  MOVS  ZERO, TEMP  III  12=3  IO_5=MC  "TEMP=CIN,  MORE"; 

D_SUB_S  TEMP.RD  MSRCI  NEXT  "DST-TEMP,  END"; 

TST1 :  MOVS  RD  MSR  NEXT  "TST  OP,  END”; 


"SINGLE  OPERAND  INSTRUCTIONS  -  CLASS  S02" 

S02:  "CLASS  START  ADDR  FROM  MAP, DST  NODE  NE  0" 

S  ADD  D  FLDSEL(3 , 3) , I  MM 

TADDR=DBASE  JSK  INDEXED  "FETCH  DST  OPND ,TADDR=DBASE+MODE" ; 
S_ADD  D  FLDSEL(6 , 3 ) , I  MM 

TADDR=$+1  JMP  INDEXED  "JMP  TO  S02  INSTR" ; 

CLR2 :  CLR  ,DR0  MSR  WRITE  NEXT  "CLR  OP,  END"; 

COM2:  NOTD  ,DRO  MSRCI  WRITE  NEXT  "COM  OP,  END"; 

I  NCt-2 :  I  NCI  ,  DRO  MSRNOC  WRITE  NEXT  "INC  OP,  END"; 

DEC2:  D_SUB  S  ONE, DRO  MSRNOC  WRITE  NEXT  "DEC  OP,  END"; 

NEG 2 :  NOT  D  ,DR0  Ill  12=1  MSRCI 


WRITE  NEXT 

"NEG  OP, 

END"; 

ADC2 : 

MOVD  , DRO 

Ill  12=3 

MSR  WRITE  NEXT 

"ADC  OP, 

END"  ; 

SBC2 : 

MOVS  ZERO, TEMP  111  12=3 

0  5=MC 

JMP  (3SBC 

0 

"TEMP=CIN,  MORE  ; 

TST2 : 

MOVS  DRO 

MSR  NEXT 

"TST  OP, 

END" ; 

JSBC2 

D_SUB  S  TEMP, DRO  MSRCI  WRITE  NEXT 

"DST-TEMP, 

END 

"SINGLE 

OPERAND  INSTRUCTIONS  -  CLASS 

S03" 

S03 : 

"DST  MODE  EQ  0" 

ROR3 : 

MOVD  , RD 

ROR  JMP  FXCC3 

"ROR  OP, 

END" ; 

ROL 3 : 

MOVD  , RD 

ROL  JMP  FXCC3 

"ROL  OP, 

END"; 

ASR3  : 

MOVS  RD 

16  0=9 

"ASR  OP, 

SHIFT  N  TO 

MC, 

MOVD  , RD 

ROR  JMP  FXCC 

3  "RIGHT  SHI  FT, MORE"; 

ASL3  : 

MOVD  , RD 

ASL  JMP  FXCC 3 

"ASL  OP, 

END"  ; 

SXT  3: 

CJP  MM I 

TAI)DR=USXT3 

"SXT  OP, 

MORE"; 

CLR  , RD 

MSR  NEXT 

"CLR  IF 

NOT  MM I,  END  ; 
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ySXT3:  NOTS  ONE , RD  Ill  12=1  MSR  NEXT  "RD=-1  IF  MM I ,  END"; 

FXCC3 :  MOVS  RD  USR  JMP  FIXCC  "FIX  COND  CODES,  EXCEPT  OVR.MORE"; 


"SINGLE  OPERAND  INSTRUCTIONS  -  CLASS  S04" 

S04 :  "CLASS  START  ADDR  FROM  MAP , DST  MODE  NE  0" 

S  ADDD  FLDSEL(3,3) , IMM 

TADDR=DBASE  JSR  INDEXED  "FETCH  DST  OPND ,TADDR=DBASE+MODE" ; 
S  ADD  D  FLDSELI6 , 3) , IMM 


TADDR=$+1 

JMP  INDEXED 

"JMP 

TO  S04  INSTR 

R0R4 : 

MOVD 

,DRO 

ROR 

WRITE 

JMP 

FXCC4 

"ROR  OP,  END 

R0L4 : 

MOVD 

,DRO 

ROL 

WRITE 

JMP 

FXCC4 

"ROL  OP,  END 

ASR4 : 

MOVS 

DRO 

16  9 

=9  JMP 

@ASR4 

"ASR 

OP,  SHIFT  N 

ASL4 : 

MOVD 

,  DRO 

ASL 

WRITE 

JMP 

FXCC4 

"ASL  OP,  END 

TRAP;  "WRONG  ADDR  FOR  SOS  GROUP (SEE  BELOW)" 

TRAP; 

TRAP ; 

SXT4 :  CJP  MM I  TADDR=@SXT4  "SXT  OP,  MORE"; 

CLR  , DRO  MSR  WRITE  NEXT  "CLR  IF  NOT  MM I ,  END"; 

@SXT4:  NOT_S  ONE, DRO  Ill  12=1  MSRNOC 

NEXT  WRITE  "-1  IF  MM  I,  WRITE,  END"; 

@ASR4:  MOV'D  ,DRO  ROR  WRITE  "RIGHT  SHIFT,  END"; 

FXCC4 :  MOVS  DRO  USR  JMP  FIXCC  "FIX  COND  CODES,  EXCEPT  OVR,  MORE"; 


"SINGLE  OPERAND  INSTRUCTIONS  -  CLASS  SOS" 

MARK5 :  MOVS  FLDSEL(0 , 6 ) , R6  ASI,  "MARK  OP,  SP=2*NN,  MORE"; 

SADD  D  R7,R6,MAR  READ  "SP=PC+2*NN,  MORE"; 

MOVS  R5,R7  "PO=R5,  MORE"; 

INC2  ,R6  "AUTO  INC  SP,  MORE"; 

MOVS  DR0.R5  NEXT  "RESTORE  R5"; 

"DOUBLE  OPERAND  INSTRUCTIONS" 

"MOV,  CMP,  BIT,  BIC,  BIS,  ADD" 


'DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  DOl 

"SRC  MODE  F.Q  0,  DST  MODE  EQ  0" 


DOl 
MOV  1  : 
CMP1 : 
BIT1  : 
BIC1  : 
BIS1 : 
ADD1 : 


"MIRSRC  IN  RS,  MIRDST  IN  RD" 
MOVS  RS , RD  MSRNOC  NEXT  "MOV  OP,  END"; 

S_SUB_D  RS , RD  TST  MSRCI  NEXT  "CMP  OP,  END"; 

S_AND_D  RS ,RD  TST  MSRNOC  NEXT  "BIT  OP,  END"; 

NSANDD  RS ,RD  MSRNOC  NEXT  "BIC  OP,  END"; 

S_OR_D  RS , RD  MSRNOC  NEXT  "BIS  OP,  END"; 

S  ADD  D  RS , RD  MSR  NEXT  "ADD  OP,  END"; 


DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  D02 

D02 :  "CLASS  START  ADDR  FROM  MAP,  SRC  MODE  EQ  0,  DST  MODE  NE  0" 

S_ADD  D  FLDSEL(3,3) , IMM  "FETCH  DST  OPND ,TADDR=DBASE+MODE" 
TADI)R=DBASE  JSR  INDEXED  "MIRSRC  IN  RS, MIRDST  IN  DRO"; 

S  ADDD  FLDSELf 12,3) , IMM 

TADDR=$  JMP  INDEXED  "JMP  TO  D02  INSTR"; 

MOV 2 :  MOVS  RS,DRO  MSRNOC  NEXT  WRITE  "MOV  OP,  END"; 

CMP2 :  S  SUB  D  RS,DRO  TST  MSRCI  NEXT  "CMP  OP,  END"; 
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BIT2:  S  AND  D  RS.DRO  TST  MSRNOC  NEXT  "BIT  OP,  END"; 

BIC2 :  NSAND  D  RS.DRO  MSRNOC  NEXT  WRITE  "BIC  OP,  END"; 

B I S 2 :  S  OR  D~RS,DR0  MSRNOC  NEXT  WRITE  "BIS  OP,  END"; 

ADD2 :  S^ADD  D  RS,DR0  MSR  NEXT  WRITE  "ADD  OP,  END”; 


"DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  1)03" 

D03 :  "CLASS  START  ADI)R  FROM  MAP,  SRC  MODE  NE  0,  DST  MODE  EQ  0" 

S  ADD  D  FLDSEL(')  ,3) ,  I  MM 

TADI)R=SBASE  JSR  INDEXED  "FETCH  SRC  OPND ,TADDR=DBASE+MODE" ; 
S  ADD  I)  FLI)SF,I.(  12,3),  I  MM  "MIRSRC  IN  DRO  .  MIRDST  IN  RD" 
TADDR=$  .IMP  INDEXED  "JMP  TO  D03  INSTR"; 

MOV 3 :  MOYS  DRO.RD  MSRNOC  NEXT  "MOV  OP,  END"; 

CMP3 :  SSUB  I)  DRO ,  RD  TST  MSRCI  NEXT  "CMP  OP,  END"; 

BIT3 :  SAND  D  DRO.RD  TST  MSRNOC  NEXT  "BITOP,  END”; 

BIC3 :  NS  AND  I)  DRO ,  RD  MSRNOC  NEXT  "BIC  OP,  END"; 

BIS3:  S  OR  D  DRO , RD  MSRNOC  NEXT  "BIS  OP,  END"; 

ADD3 :  Shad’d  D  DRO,RD  MSR  NEXT  "ADD  OP,  END"; 


"DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  004" 

D04 :  "CLASS  START  ADDR  FROM  MAP,  SRC  MODE  NE  0,  DST  MODE  NE  0" 

S_ADD  D  FLDSEL(9 , 3) , IMM 

TADDR=SBASE  JSR  INDEXED  "FETCH  SRC  OPND ,TADDR=DBASE+MODE" ; 
CONT  "WAIT  FOR  OPND"; 

MOVS  DRO, TEMP  "STORE  SRC  OPND  IN  TEMP"; 

SADD  D  FLDSEL( 3 , 3 ) , IMM  "FETCH  DST  OPND ,TADDR=DBASE+MODE" 
TAD1)R=DBASE  JSR  INDEXED  "MIRSRC  IN  TEMP,  MIRDST  IN  DRO"; 
SADDD  FLDSEL( 12,3), IMM 

TADDR=$  JMP  INDEXED  "JMP  TO  D04  INSTR"; 

M0V4 :  MOVS  TEMP, DRO  MSRNOC  NEXT  WRITE  "MOV  OP,  END"; 

CMP4 :  S  SUB  D  TEMP, DRO  TST  MSRCI  NEXT  "CMP  OP,  END"; 

BIT4:  S_AND2D  TEMP, DRO  TST  MSRNOC  NEXT  "BIT  OP,  END"; 

BIC4:  NS _AND_D  TEMP, DRO  MSRNOC  NEXT  WRITE  "BIC  OP,  END"; 

BIS4 :  S  OR  D  TEMP, DRO  MSRNOC  NEXT  WRITE  "BIS  OP,  END"; 

ADD4 :  S  ADD  D  TEMP, DRO  MSR  NEXT  WRITE  "ADD  OP,  END"; 


III .8  Class  E IS 

"EXTENDED  INSTRUCTION  SET  INSTRUCTIONS  -  CLASS  EIS" 

"MUL,  DIV,  ASH,  ASIIC ,  XOR ,  FADD,  FSUB,  FMUI.,  FDIV,  SOB" 

"MUL  INSTRUCTION  -  DST(RF.G)  AND  SRC  MULTIPLIED  AND  STORED  IN  REG,REG+l" 

MU LI ;  "SRC  MODE  EQ  0" 

MOVS  RD, TEMPI?  "TEMP  -SRC  OPNI)"; 

OMUL:  "TEMPI —MULTI  PL  I  CAS'D,  RS=MULTI  PLIER" 

MOVS  RS.QDST  LDCT  PRF.SET=14  "Q=MULTI PLIER ,  C0UNTER=15"; 

CLR  , TF.MP  "CLEAR  TEMP,  MORE"; 

SMUL  TF.MP.  •  .TEMP  1 6  9=0bH 

RPCT  TAI)DR=$  "2  COMP  MUI.T, LINK  SIOO  TO  QI03,  DECR  LOOP"; 
MULF  TEMP  ■'  .TF.MP  16  9=0bH 

Ill  12=2  "2  COMP  MULT  LAST  CYCLE,  I, INK  SIOO  TO  QI03, 

LINK  CIS  TO  CX,  MORE"; 

"AT  TfUS  STAGE  F'RODC  CTl.MS  )  IN  TEMP 
PRODUCT I LS)  IN  Q 
MULTIPLICAND  IN  TEMP 
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@MULA : 


(ciMULB : 


(3MULC  : 


MUL2 : 


MULTIPLIER  IN  RS" 

MOVS  TEMP.RS  JSR  REGDST  ”RS=PRODUCT(MS ) , 

REGDST  PLACES  (SS  OR  1)  IN  DD  FIELD" 
USR  "STORE  CC  FOR  MS,  N  CORRECT, 

UV=0,  UC=0,  MORE"; 

MOVD  ,RD,QIN  MSR  "STORE  LS  IN  RD, 

STORE  CC  FOR  LS  IN  MSR,  MORE"; 
"REST  NEEDED  TO  FIX  CONDITION  CODES" 

CJP  MPL  TADDR=@MULA  "BR  IF  MS  N=0,  MORE"; 

105=1 7Q  CEU=1  "SET  UV,  MORE"; 

"UV  NOW  CONTAINS  N(LS)" 

CJP  UGE  TADDR=C?MULB  "Bk  IF  (N(MS)  XOR  N(LS))=0"; 

10  5=13Q  CEU=1  "SET  UC,  MORE"; 

"UC=(N (MS)  XOR  N(LS), VIZ  REQUIRED  C,  MORE" 

I0_5=16Q  CEU=1  "RESET  UV,  MORE"; 

CJP  MEQ  TADDR=fctMULC  "JUMP  IF  LS  Z=t,  MORE"; 

I0_5=10Q  CEU=1  "RESET  UZ,  MORE"; 

105=2  CEM= 1  CEU=1  EC=1  NEXT  "Z  CORRECT,  SWAP  STATUS  REG, 

END  OF  DIVIDE"; 

"SRC  MODE  NE  0" 


S_ADD_D  FLDSEL(3 , 3) , IMM 
TADDR=DBASE  JSR  INDEXED 
CONT 

MOVS  DRO, TEMPi?  JMP  ?MUL 


"FETCH  SRC  OPND ,  MORE"; 
"WAIT  FOR  OPND”; 
"TEMPy=SRC  OPND,  MORE"; 


"DIV  INSTRUCTION  -  DIVTDEN’D(MS)  IN  REG,  DIVIDEND(LS)  IN  REG  OR  1, 
SRC  IS  DIVISOR  -  PEFORMS  TWOS  COMPLEMENT  DIVIDE" 


DIV1 : 
O'DIVl: 


?DIV2: 


MOVS  RD.DRO  MSR 

MOVS  DRO.QDST 

JSR  REGDST 

MOVD  , DRO ,Q1N 

MOVS  DRO, TEMP  105=3  CEU=1 

MOVS  RS ,TEMP? 

CJP  MEQ  TADDR=(jDI VZ 
CONV  ,TEMP?  Ill  12=2  USR 


MOVD  ,TEMP?  1 6  9=2  15  8=9 

CJP  UVS  TADDR=OQUOT 
CONV  ,TEMP  Ill  12=2 


USR 


CJP  UVS  TADI)R=?QUOT 


"SRC  MODE  EQ  0" 

"l)R0=SRC  OPND,  SAVE  DIVID  SIGN"; 
"SAVE  DRO"; 

”RD=DIVIDEND(LS) ,  MORE"; 

"RESTORE  DRO"; 

"TEN P=D I  VISOR,  RESET  USR"; 
"TF.MP?=D  I V I DEND  (MS ) " 

"IF  DIVISOR=0  THEN  EXIT"; 
”TF.NPJ=S/M  DIVIDEND  (MS) , 

LINK  CIN  TO  CX,  UPDATE  USR"; 
"TEMPJ=2'VTEMI'J (MAG  DVDMS ) " 
"ABORT  IF  OVERFLOW  DURING  CONV" ; 

"TEM p=s/m  divisor, 

LINK  CIN  TO  CX,  UPDATE  USR"; 
"ABORT  IF  OVERFLOW  DURING  CONV"; 


S  AND  D  IMM, TEMP  PRF.SKT=77777Q  "TEMI’=MAG  DVS"; 
S  SUB  D  TEM IV, TEMP  TST  USR  "TEST  DVDMS -DVS 


CJP  UHI  TADDR=?QUOT 
MOVS  RD.QDST 

MOVD  , RS  15  8=0AH  lo  9=4 


NMZD  DRO , RS  lb  9=0FH 

PUSH  UNCOND  PRESET=ODH 


"ABORT  IF  QUOTIENT  TOO  LARGE" 
"Q=RD  ( I)  I V I  DEND  (  LS ) )"; 

"SHIFT  DVDMS, DVD LS  LEFT  BEFORE 
STARTING  DIVIDE"; 

"DOUBLE  LENGTH  NORM,  SIOO  TO  Q103 
"PUSH  LOC  ON  STACK, LOAD  COUNTER"; 
SDI V  DRO ,  RS  Ill  12=2  16  9=0Flt  "TWO  COMP  DIV,  LINK  CIN  TO  CX, 

LINK  SIOO  TO  Q 1 03 ,  SI03  TO  QIOO" 

RFCT  "LOOP  FOR  14  CYCLES"; 

FDIV  DRO ,  RS  Ill  12=2  16  <1=3  "DIVIDE  CORK,  LINK  CIN  TO  CX, 

Q I 00=1"; 

"QUOTIENT  AND  REMAINDER  CORRECTION  IS  PERFORMED 
SIMILAR  TO  RHYNE (1971  )" 

MOVD  ,  TEMPy,  QIN  USR  "TEMP,  »=Q,  UPDATE  USR"; 

MOVS  DRO  MSR  "DRO=DVS,  UPDATE  MSR"; 
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(ciQPOS : 


(ciCORR  1  : 


(clQNEG : 


(3CORR2 : 


@ENDIV: 

CQUOT: 


(2DIVZ : 


DIV2: 


MOVS  RS ,  RD  CJP  UMI  "RD=K" 

TADDR^QNF.G  "BR  IF  Q  NEG” ; 

MOVS  RD  CJP  10  5=1 7Q  CCMUX=1 
TADDR=(?ENDIV  "br  if  r  and  DVS  SAME  SIGN"; 

D  SUB  S  ONE  , TEMPO  "TEMP  ~Q-  1 "  ; 

S  ADD  D  DRO.RD  JMP  (JENDIV  "RD=K+DVS"; 

MOVS  RD  CJP  10  5=16Q  CCMUX=1 
TADDR=(BENDIV  "BR  IF  R  AND  DVS  DIFF  SIGN"; 

S_ADD_D  ONE .TEMPO  "TEMPv=Q+ 1 " ; 

D  SUB  S  DRO.RD  "RD=R-DVS"; 

MOVS  TEMPO, RS  MSR  NEXT  "RS=QUOTIENT,  UPDATE  MSR" 

END  OF  1)1  V  OPERATION"; 

10  5=3  CF.U=i  "RESET  USR"; 

I0_5=17Q  CEU= 1  "SET  UV  AS  QUOTIENT  TOO  LARGE"; 

I0_5=13Q  CEU=1  "SET  UC  AS  DIVIDE  BY  ZERO"; 

I0_5=2Q  CEU=  1  CEM=1  F.C=1  NEXT  "SWAP  USR, MSR,  END"; 

"SRC  MODE  NE  0" 

S  ADD  D  FLDSELC 3,3), I  MM 

TADDR=DBASE  JSR  INDEXED  "FETCH  SRC  OPND,  MORE”; 

CONT  "WAIT  FOR  SRC"; 

MOVS  DRO  MSR  JMP  GDI  VI  "DKO=SRC  OPND,  JUMP"; 


"ASH  INSTRUCTION  -  REG  SHIFTED  AR 1  Til  NN  PLACES  LEFT  OR  RIGHT" 
"ASH  AND  ASHC  START  AT  SAME  MAPPING  ADDRESS" 


ASH1 : 


@ASH: 


@ASHR: 


:ASHCR: 


OASHRA: 


MOVS  RD.TEMP® 

MOVS  TEMPy  USR 
CJP  UMI  TA!)1)R=:ASHR 
JMP  JASHL 

NOT  S  TEMP  I  MM  10  5=3  CF.I  = 
LDCT  "STORE  MAG  OF 

S  ADI)  1!  FLDSEU  9,1),  1MM 
TADDR=$+1  JMP  INDEXED 
JMP  JASHRA 

JSR  REGDST 

MOVS  RD.QDST 

MOVS  RS  16  9=9 

MOVD  ,  RS  15  8=2  16  9=()CH 

RPCT  TAD1)R=$  - 1 

MOVS  RS  USR  JMP  iASHCC 

MOVS  RS  la  9=9 
MOVD  , RS  KOR 
RPCT  TADI)R=o-l 
MOVS  RS  MSRNOC 
NEXT 


ASHL : 

S  SUB  D  TEMPj, I  MM  PRESET=1 
10  5=3  CEU= I  LDCT 
S  ADI)  D  FLDSELC),  1  )  ,  1  MM 
TADI)R=$+1  IMP  INDEXED 
JMP  ASH LA; 

CASHCL :  JSR  REGDST  10  5=3  CE!'=1 
MOVS  RD.QDST 

MOVD  ,  RS  15  H=OBH  I  a  <1=^ 
MSRNOC 

MOVS  RS  CJP  10  5=1 7Q 


"SRC  MODE  EQ  0" 

"TEMP, -SOURCE"; 

"UPDATE  USR  FOR  SHIFT  DIRN"; 

"BR  IF  UN= 1 , V I Z  RIGHT  SHIFT"; 
"LEFT  SHIFT  OP"; 

"ASH,  ASHC  RIGHT  SHIFT  OPN" 

I  "1MM=(MAG  NN ) -  1  ,  RESET  USR" 

NO  OF  LOOPS  IN  COUNTER"; 

"BR  IF  ASHC", 

"ASHC  RIGHT  SHIFT  OPERATION" 
"RI)=  (  KS  OR  1)"; 

"Q=REG( LS)" ; 

"SHIFT  SIGN  TO  MC"; 

"DOUBLE  WORD  ASR" 

"LOOP  FOR  NN  CYCLES"; 

"FIX  CONI)  CODES"; 

"ASH  RIGHT  SHIFT  OPERATION" 
"SHIFT  SIGN  TO  MC"; 

"SHIFT  RIGHT" 

"LOOP  FOR  NN  CYCLES"; 

"UPDATE  MSR  WITH  MC  RETAIN" 

END  OF  ASH  (.RIGHT  SHIFT)"; 
"ASH, ASHC  LEFT  SHIFT  OPERATION’ 
"SToRE  iNN-1)  IN  LDCT" 

"  k  E  S  E  ;  (  S  R  "  ; 

"BR  IF  ASHC"; 

"RD-- 1  R  OR  1  '  .  RESET  USR"; 
"Q=REG( LS  i"  ; 

"DOUBLE  WoRD  ASI." 

"MN=S I  ON  BEFORE  SHIFT"; 

" I N=S I GN  AFTER  SHIFT" 


TASHCC : 


(3ASHCD: 


@ASHLA: 


ASH2 : 


CCMUX=1  TADDR=$+2 
1 0  5= 1 7Q  CEU=1 
RPCT  TADDR=$ -3 
MOVS  RS  105=6  CEU=1 

"UN  CORRECT,  UV  CORRECT,  MC 

MOV'D  ,  RD ,  Q I N  MSRNOC 

CJP  MEQ  TADDR=  iASHCD 

1 0  5=1 OQ  CEU=1 

10  5=2  CEM=1  CEU=1  NEXT 


MOV'D  ,  RS  ASL 
MSRNOC 

MOVS  RS  CJP  1 0  5=  1 7Q 
CCMUX=1  TADDR=S+2 
IO_5=17Q  CEU=1 
RPCT  TADDR=$ -3 
MOVS  RS  I0__5=6  CEU=1 
10  5=2  CEM=1  CEL- 1  NEXT 


S_ADD  D  FLDSELf  3,3) , I  MM 
TADDR=DBASE  JSR  INDEXED 
CONT 

MOVS  DRO, TEMPO  JMP  (2  ASH 


"BR  IF  (IN  NXOR  MN)=l" ; 

"SET  UV"; 

"LOOP  FOR  NN  CYCLES"; 

"UPDATE  USR ( V  RETAIN)"; 

"FIX  UZ  FOR  ASHC" 

CORRECT" 

"R!)=LS  WORD,  MSR=LS  STATUS"; 
"BR  IF  LS  Z= I " ; 

"RESET  UZ"; 

"SWAP  REG  WITH  MC  RETAIN" 
END  OF  ASHC  OPERATION"; 
"ASL" 

"MN=S1GN  BEFORE  SHIFT"; 
"iN=SIGN  AFTER  SHIFT" 

"BR  IF  (IN  NXOR  MN)=l"; 

"SET  UV"; 

"LOOP  FOR  NN  CYCLES"; 

"UPDATE  USR  (V'  RETAIN)"; 

"SWAP  REG.  MC  RETAIN" 

END  OF  ASH  t.  LE  FT  SHIFT)"; 

"  SRC  MODE  NF.  0" 

"FETCH  SRC  OPND.MORE"; 

"WAIT  FOR  OPND" ; 

"TEMP' -=SKC  OPND,  MORE"; 


"XOR  INSTRUCTION  -  DST=REG  XOR  DST" 


XOR 1 :  "DST  MODE  EQ  0" 

SXORD  RS , RD  MSRNOC  NEXT  "XOR  OP,  END"; 

XOR 2 :  "DST  MODE  NE  0" 

S  ADD  D  FLDSEI.(  3 , 3  )  ,  I  MM 

"  TADDR=DBASE  JSR  INDEXED  "FETCH  DST  OPND,  MORE"; 
COST  "WAIT  FOR  OPND"; 

S  XOR  D  RS.DRO  MSRNOC  WRITE  NEXT  "XOR  OP,  END"; 


"SOB  INSTRUCTION  -  SUBTRACT  ONE  AND  BRANCH  IF  NE  0" 


SOB: 


D  SUB  S  ONE , RS  USR 
CJP  UEQ  TAl)DR=FETCii 
MOVS  FLDSELf 0 , n ) .TEMP 
D  SUB  S  TEMP, R 7  NEXT 


"KS=RS-  1  ,  UPDATE  USR"; 

"IF  RS  ZERO  THEN  FETCH  NEXT  INSTR" ; 
ASL  "TEMP=2*OFFSET ,  MORE"; 

"R 7=R7  -2‘- OFFSET ,  END"  ; 


[1.9  C 

lass  BRS.TR 

"BRANCH 

INSTRUCT! 0 

NS" 

"BPL,  B 

MI,  BHI,  BL 

OS,  BVC 

,  BVS ,  BCD, 

"BRANCH 

INSTRUCTIONS  -  CL 

.ASS  UK'S " 

BRS  : 

MOVS  FLDSF.I.IO.rt 

) .TEMP  BSX 

MOV'D  ,  TE 

Ml’  I  5 

8=9  In  9  -2 

S  ADD  !) 

TEMP , K7 

NEXT 

BPL: 

CJP  MPL 

TAD1)R= 

■BRS 

NEXT 

BMI  : 

CJP  MM  I 

TADDR= 

jirs 

NEXT 

B HI  : 

CJP  MHI 

TADDK- 

:BKS 

BHIS,  BOS ,  HLO” 


"TKMP=()FKSET(SIGS  EXT)  .MORE"; 
"OFFSET"' 2  , NO  MC  UPDATE, MORE"; 
"l'C=l’C-f  2" OFFSET ,  END"; 

"  I )'  PLUS  THEN  BRANCH"; 

"ELSE  END"; 

"IP  MINUS  THEN  BRANCH"; 

"ELSE  END", 

"IF  HIGHER  THEN  BRANCH"; 
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NEXT 

"ELSE  END"; 

BLOS: 

CJP  MLOS  TADDR=BRS 

"IF  LOWER  OR  SANE  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BVC : 

CJP  MVC  TADDR=BRS 

"IF  V  CLEAR  THEN  BRANCH"; 

• 

NEXT 

"ELSE  END"; 

BVS : 

CJP  MVS  TADDR=BRS 

"IF  V  SET  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BCC :  BHIS:  CJP  MCC  TADDR=BKS 

"IF  C  CLEAR  THEN  BRANCH"; 

NEXT 

"ELSE  END"; 

BCS :  BLO 

:  CJP  MCS  TADDR=BRS 

"IF  C  SET  THEN  BRANCH"; 

• 

NEXT 

"ELSE  END"; 

”EMT  and 

TRAP  I NSTRL’CT IONS" 

EMT: 

MOVS  I MM, TEMP  PRESET=30Q 

"VECTOR  VIA  30Q"; 

• 

( 

JMP  GTVCTR 

"JUMP  TO  VECTOR"; 

TRAP@ : 

MOVS  I MM, TEMP  PRESET=34Q 

"VECTOR  VIA  34Q"; 

JMP  GTVCTR 

"JUMP  TO  VECTOR"; 

• 

( 

[II.  10  Class  S06 , S07 , S08 , S09 , SO 1 0 

"SINGLE 

OPERAND  INSTRUCTIONS  -  BYTE" 

"CLRB ,  COMB,  INCB ,  NEGB ,  ADCB,  TSTB" 

"SINGLE 

OPERAND  INSTRUCTIONS (BYTE)  - 

CLASS  S06" 

• 

4 

S06: 

"DST  MODE  EQ  0" 

CLR6  : 

CLR  , RD  MSR  NEXT 

"CLRB  OP,  END"; 

C0M6 : 

MOVS  RD .TEMP  BSX 

"SIGN  EXT,  MORE"; 

NOT  S  TEMP  ,RI)  STOB  MSRCl 

NEXT  "STOB  OP,  END"; 

INC!?  6 : 

MOVS  RD.TEMP  BSX 

"SIGN  EXT,  MORE"; 

• 

4 

S  ADD  D  ONE, TEMP  MSRNOC 

"INCB  OP,  MORE"; 

MOVS  TEMP , RD  STOB  NEXT 

"WRITE  LSB ,  END"; 

DEC6 : 

MOVS  RD.TEMP  BSX 

"SIGN  EXT,  MORE"; 

D  SUB  S  ONE, TEMP  MSRNOC 

"DECB  OP,  MORE"; 

MOVS  TEMP , RD  STOB  NEXT 

"WRITE  LSB,  END"; 

NEG6 : 

MOVS  RD.TEMP  BSX 

"SIGN  EXT,  MORE"; 

• 

( 

NOT  S  TEMP , RD  STOB  III  1 

2=1  MSRCl  NEXT  "NEGB  OP,  END"; 

ADC6 : 

MOVS  RD.TEMP  BSX 

"SIGN  EXT,  MORE"; 

MOVS  TEMP , RD  STOB  111  12^ 

=3  MSR  NEXT  "ADC  OP"; 

SBC6  : 

MOVS  RD.TEMP  BSX 

"SIGN  EXT,  MORE"; 

MOVS  ZERO, TEMPO  Ill  12=3 

10  3=MC  "TEMPt  i=C  IN,  MORE"; 

D  SUB  S  TEMPO, TEMP  MSRCl 

"DST -TEMPO ,  MORE"; 

• 

< 

MOVS  TEMP , RD  STOB  NEXT 

"WRITE  LSB,  END"; 

TST6 : 

MOVS  RD.TEMP  BSX 

"TST  OP, TEMP  IS  DUMMY"; 

(?S06 : 

MOVD  ,TEMP  MSR  NEXT 

"UPDATE  MSR, END"; 

"SINGLE 

OPERAND  INSTRUCT I ONS ( BYTE )  - 

CLASS  SO 7" 

• 

i 

S07  : 

"CLASS 

START  ADDR  FROM  MAP, DST  MODE  NE  0" 

S  ADD  D  FLDSELf  3 , 3 ) , I  MM 

TADI)R=I)BASKB  JSR  INDEXED  "FETCH  DST  Ol'ND  ,TADDR=DBASE+MODE" ; 

CONT 

"WAIT  FOR  MEM,  MORE"; 

MOVD  , DRO  BSX 

"SIGN  EXT,  MORE"; 

• 

i 

SAQD  D  FLDSEL(f> , 3) , I  MM 

TADDR=$+1  JMP  INDEXED  "JUMP  TP  SOT  INSTR ,  MORE”; 
CLR  , DRO  MSR  WRITE li  NEXT  "CERIi  OP,  END"; 


CLR7 : 
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COM 7 : 
INC@7 
DEC7  : 
NEG7 : 


ADC  7: 

SBC7  : 

TST7  : 
(2SBC7: 


NOT_D  , DRO  MSRCI  WRITEB  NEXT 
S_ADD_D  ONE, DRO  MSRNOC  WRITEB 
DSUBS  ONE, DRO  MSRNOC  WRITEB 
NOTD  , DRO  II 11 2=1  MSRCI 
WRITEB  NEXT 
MOVD  , DRO  Ill  12=3 
MSR  WRITEB  ' NEXT 
MOVS  ZERO, TEMP  Ill  12=3 
JMP  @SBC7 

MOVS  DRO, TEMP  MSR  NEXT 
D  SUB  S  TEMP, DRO  MSRCI 


"COMB  OP,  END"; 
NEXT  "INCB  OP, 
NEXT  "DECB  OP, 


"NEGB  OP,  END"; 


END"; 

END"; 


"ADCB  OP,  END"; 

10  5=MC 

"TEMP=CIN ,  MORE"; 

"TSTB  OP, TEMP  IS  DUMMY,  END"; 
WRITEB  NEXT  "DST-TEMP,  END"; 


"SINGLE  OPERAND  INSTRUCTIONS  (BYTE)  -  CLASS  SOS" 

S08 :  "MODE  EQ  0" 

"CLEARS  HIGH  BYTE,  ROTATES  RIGHT,  CORRECTS  BIT7  IF  NECESSARY" 

R0R8 :  MOVS  I MM , TEMP  10  8=2  CEU=1  EC=1 

PRESET=OFFH  "TEMP=LOW  BYTE  MASK ,USR=MSR" ; 

S_AND_D  TEMP  ,RD  ROR  CF,U=0 

CJP  UCC  TADDR=@R0R8  "MASK  LOW  BYTE, ROTATE  RIGHT, 

INHIBIT  USR ,  JUMP  IF  UC  CLEAR"; 


S  OR 

D 

IMM,RD 

PRESET=80H 

"IF  UC  SET  CLEAR  BIT7,  MORE" 

(9ROR8  : 

MOVD 

,RD 

BSX 

"SIGN  EXT,  MORE"; 

@S08: 

MOVD 

,RD 

USR 

JMP  FIXCC 

"SAVE  NZVC,  EXCEPT  OVR"; 

R0L8 : 

MOVD 

,  RD 

BSX 

"SIGN  EXTEND,  MORE"; 

MOVD 

,RD 

ROL 

JMP  (cS08 

"ROTATE  LEFT,  MORE"; 

ASR8 : 

"CLEARS 

BITS  7- 

15, 

ROTATES  RIGHT,  CORRECTS  BITS  6&7  IF  NECESSARY" 

MOVS 

IMM.TEMP 

PRESET=7FH 

"TEMP=MASK  FOR  BITO-6 ,  MORE" 

MOVD 

,RD 

BSX 

"SIGN  EXTEND,  MORE"; 

MOVD 

,RD 

CEU=  1 

"SAVE  SIGN  IN  USR"; 

S  AND 

D  TEMP , RD 

ROR  CF.U=0 

CJP 

UPL  TADDR=vJASR8 

"MASK  BITSO-6,  ROTATE  RIGHT, 

INHIBIT  USR,  JUMP  IF  USR  POI 

S  OR 

D  I MM , RD 

PRESET=OCOH 

"IF  NEG  ,  SET  BITS  687,  MORE’ 

(?ASR8 : 

MOVD 

,RD 

BSX 

JMP  0SO8 

"SIGN  EXT,  SAVE  EXCEPT  OVR"; 

ASL8 : 

MOVD 

,RD 

BSX 

"SIGN  EXTEND  OPND,  MORE"; 

MOVD 

,  RD 

ASL 

"SHIFT  LEFT,  SAVE,  MORE"; 

MOVS 

RD 

USR 

JMP  FIXCC 

"FIX  CC,  EXCEPT  OVR"; 

"SINGLE  OPERAND  INSTRUCT I ONS ( BYTE )  -  CLASS  S09" 

S09  :  "DST  MODE  NE  0" 

"CLEARS  HIGH  BYTE,  ROTATES  RIGHT,  CORRECTS  BIT7  IF  NECESSARY" 

R0R9 :  SADDD  FLDSEL(3 , 3 ) , I MM 

TADDR=DBASF.B  JSR  INDEXED  "FETCH  DST  OPND,  MORE"; 

MOVS  I  MM, TEMP  105=2 

CF.U=1  EC=1  PRESF.T=OFFH  "TF.MP=LOW  BYTE  MASK ,  USR=MSR" ; 

S  AND  D  TEMP, DRO  ROR  CEU=0 

CJP  UCC  TADDR=V'R0R9  "MASK  LOW  BYTE, ROTATE  RIGHT, 

INHIBIT  USR,  JUMP  IF  UC  CLEAR"; 
S  OR  D  I  MM ,  DRO  PRF.SET=80H  "IF  UC  SET  CLEAR  BIT7,  MORE"; 
@R0R9:  MOVD’ ,DR0  BSX  WRITEB  "SIGN  EXT,  MORE"; 

MS09 :  MOVD  ,DRO  USR  JMP  FIXCC  "SAVE  NZVC  EXCEPT  OVR"; 

R0L9 :  S  ADD  D  FLDSEL( 3 , 3) , I  MM 

TADDR=DBASEB  JSR  INDEXED  "FETCH  DST  OPND,  MORE"; 

CONT  "WAIT  FOR  MEM,  MORE"; 

MOVD  , DRO  BSX  "SIGN  EXTEND,  MORE"; 

MOVD  , DRO  ROL  WRITEB  "ROTATE  LEFT,  MORE"; 
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MOVS  DRO  USR  JMP  FIXCC  "FIX  CC  EXCEPT  OVR"; 

ASR9  : 

"CLEARS  BITS  7-15,  ROTATES  RIGHT,  CORRECTS  BITS  6&7  IF  NECESSARY" 
S_ADD_D  FLDSEL(3 , 3) , I MM 

TADDR=DBASEB  JSR  INDEXED  "FETCH  DST  OPND.MORE"; 

MOVS  I  MM ,  TEMP  PRF.SET=7FH  "TEMP=MASK  FOR  BITO-6,  MORE* 
MOVD  , DRO  BSX  "SIGN  EXTEND,  MORE"; 

MOVD  , DRO  CEU=1  "SAVE  SIGN  IN  USR"; 

S  AND  D  TEMP, DRO  ROR  CEU=0 


CJP  UPL  TADI)R=V-'ASR9 

S_OR_D  I  MM,  DRO  PRESF.T=0C01I 
(aASR9:  MOVD  ,DRO  BSX  WR1TEB 
JMP  @S09 

ASL9 :  S_ADD_D  FLDSEL(3 , 3 ) , I  MM 

TADDR=DBASEB  JSR  INDEXED 
CONT 

MOVD  , DRO  BSX 

MOVD  , DRO  ASL  WKITEB 

MOVS  DRO  USR  JMP  FIXCC 


MASK  BITSO-6 ,  ROTATE  RIGHT, 
INHIBIT  USR,  JUMP  IF  USR  POS"; 
"IF  NEG,  SET  BITS  6&7,  MORE"; 
"SIGN  EXT,  MORE" 


FETCH  DST  OPND,  MORE  ; 
"WAIT  FOR  MEM,  MORE"; 
"SIGN  EXTEND  OPND,  MORE"; 
"SHIFT  LEFT,  SAVE,  MORE"; 
"FIX  CC,  EXCEPT  OVR"; 


"SINGLE  OPERAND  INSTRUCTIONS  -  CLASS  SOlO" 


SOlO: 

"MTPS  MOVES  SRC  TO  PSW" 

MTPS1:  "MODE  EQ  0" 

MOVD  , RD  BSX  "SIGN  EXT,  MORE"; 

MOVS  RD , DUMP  STO  PSW  NEXT  "PSW-SRC .END" ; 

MTPS 2 :  ’  "MODE  NE  0" 

SADDD  FLDSEL( 3 . 3 ) , I MM 

TADDR=DBASEB  JSR  INDEXED  "FETCH  SRC  OPND,  MORE"; 
CONT  "WAIT  FOR  SRC,  MORE"; 

MOVD  , DRO  BSX  "SIGN  EXT, MORE"; 

MOVS  DRO, DUMP  STO  PSW  NEXT  "PSW=SRC , END" ; 


"MFPS  MOVES  CONTENTS  OF  PSW  TO  DST" 


MFPS1 : 


ciMFPS  1 : 
MFPS 2: 


JMFPS2 : 


MOVS  PSW, TEMP 
MOVS  TEMP , RD  BSX 
MOVD  , RD  MSKNOC  NEXT 

SADDD  FLDSEL( 3 , 3 ) , I MM 
TADDR=DBASEB  JSR  1NDEXE 
MOVS  PSW, TEMP 
MOVS  TEMP, DRO  BSX 
WRITEB 

MOVD  , DRO  MSRNOC  NEXT 


"MODE  F.Q  0" 

"EXTRACT  PSW,  STORE  IN  TEMP"; 
"SIGN  EXT  DST,  STORE,  MORE"; 
"SAVE  NZV ,  END"; 

"MODE  NE  0" 

i  "FETCH  DST  OPND,  MORE"; 
"EXTRACT  PSW,  STORE  IN  TEMP"; 

"SIGN  EXT  DST,  STORE,  END"; 
"SAVE  NZV,  END"; 


III. 11  Class  DOS , D06 , D07 , DOS , D09 

"DOUBLE  OPERAND  INSTRUCTIONS ( BYTE ) " 

"MOVB,  CMPB ,  BITB ,  BICB,  BISB" 

"DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  D05"  - -  - 
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DOS: 

"DO  NOT 


MOV  5 
CMP5 
BITS 
BIC5 
BISS 


"DOUBLE 
D06 : 


M0V6 

CMP6 

BIT6 

BIC6 

BIS6 


"DOUBLE 
"DO  NOT 

D07 : 


MOV  7 
CMP  7 
BIT7 
BIC7 
BIS7 


"DOUBLE 
D08 : 


M0V8 : 

m 


"SRC  MODE  EQ  0,  DST  MODE  EQ  0" 
MODIFY  HIGH  BYTE  OF  RD  EXCEPT  FOR  MOV" 

MOVS  RS.TEMP  BSX  "TEMP=SRC,  SIGN  EXT,  MORE"; 

MOVS  RD,TEMP@  BSX  "TEMP?=DST,  SIGN  EXT,  MORE"; 

SADDD  FLDSEL( 12,3), IMM  "MIRSRC  IN  RS ,  MIRDST  IN  RD" 
TADDR=$  JMP  INDEXED  "JUMP  TO  D05  INSTR" ; 

MOVS  TEMP , RD  BSX  JMP  0MFPS1  "MOV  OP,  MORE"; 

S  SUB_D  TEMP , TEMP?  TST  MSRCI  NEXT  "CMP  OP,  END"; 
SANDD  TEMP, TEMP?  TST  MSRNOC  NEXT  "BIT  OP,  END"; 
NS_AND_D  RS ,RD  STOB  MSRNOC  NEXT  "BIC  OP,  END"; 

S_OR_D  RS.RD  STOB  MSRNOC  NEXT  "BIS  OP,  END"; 


OPERAND  INSTRUCTIONS  -  CLASS  1)06" 

"CLASS  START  ADDR  FROM  MAP,  SRC  MODE  EQ  0,  DST  MODE  NE  0" 
SADDD  FLDSEL(3 , 3) , IMM  "FETCH  DST  OPND , TADDR=DBASE+MODE 
TADDR=DBASEB  JSR  INDEXED  "MIRSRC  IN  RS, MIRDST  IN  DRO”; 
MOVS  RS ,TEMP  BSX  "TEMP=MIRSRC ,  SIGN  EXT,  MORE"; 

MOVD  , DRO  BSX  "SIGN  EXTEND  DST,  MORE"; 

SADDD  FLDSELI 12,3) , IMM 

TADDR=$  JMP  INDEXED  "JMP  TO  D06  INSTR"; 

MOVS  TEMP, DRO  MSRNOC  NEXT  WRITEB  "MOV  OP,  END"; 

S_SUB_D  TEMP, DRO  TST  MSRCI  NEXT  "CMP  OP,  END"; 

SAND  D  TEMP, DRO  TST  MSRNOC  NEXT  "BIT  OP,  END"; 

NSANDD  TEMP, DRO  MSRNOC  NEXT  WRITEB  "BIC  OP,  END"; 

S  OR  D  TEMP, DRO  MSRNOC  NEXT  WRITEB  "BIS  OP,  END"; 


OPERAND  INSTRUCTIONS  -  CLASS  D07" 

MODIFY  HIGH  BYTE  OF  RD  EXCEPT  FOR  MOVB" 


"CLASS  START  ADDR  FROM  MAP,  SRC  MODE  NE  0,  DST  MODE  EQ  0" 
SADDD  FLDSEL(9 , 3 ) , IMM 


TADDR=SBASF.B  JSR  INDEXED 
MOVS  RD,TEMP  BSX 
MOVD  , DRO  BSX 
S  ADD  D  FLDSELI. 12,3) ,  IMM 
“TAD'dR=$  JMP  INDEXED 
MOVS  DRO ,RD  BSX  JMP  ?MFPS1 
SSUBD  DRO, TEMP  TST  MSRCI 


FETCH  SRC  OPND,TADDR=DBASE+MODE 
"TEMP=SIGN  EXTEND  DST,  MORE"; 
"SIGN  EXTENT)  SRC,  MORE"; 

"MIRSRC  IN  DRO,  MIRDST  IN  RD" 
"JMP  TO  1)07  INSTR"; 

"MOV  OP,  SIGN  EXT,  MORE"; 

NEXT  "CMP  OP,  END"; 


SANDD  DRO, TEMP  TST  MSRNOC  NEXT  "BIT  OP,  END"; 
NS  ANDD  DRO ,RD  STOB  MSRNOC  NEXT  "BIC  OP,  END"; 
S_OR_D  DRO , RD  STOB  MSRNOC  NEXT  "BIS  OP,  END"; 


OPERAND  INSTRUCTIONS  -  CLASS  D08" 


"CLASS  START  ADDR  FROM  MAP,  SRC  MODE  NE  0,  DST  MODE  NEO” 
S_ADD_D  FLDSELI 9 , 3) , IMM 
TADDR=SBASEB  JSR  INDEXED 
CONT 

MOVS  DRO, TEMP  BSX 
S_ADD_D  FLDSELI 3, 3), IMM 
TADDR=I)BASEB  JSR  INDEXED 
CONT 

MOVD  , DRO  BSX 
SADDD  FLDSELI 12, 3),  IMM 
TADDR=$  JMP  INDEXED 

MOVS  TEMP, DRO  MSRNOC  NEXT  WRITEB  "MOV  OP,  MORE"; 

SLT1  D  TEMP. DRO  TST  MSRCI  NEXT  "CMP  OP,  MORE"; 


"FETCH  SRC  OPND , TADDR=DB ASE+MODE 
"WAIT  FOR  OPND"; 

"TEMP=SRC  OPND,  SIGN  EXTEND"; 
"FETCH  DST  OPND ,TAI)DR=DB ASE+MODE 
"MIRSRC  IN  TEMP,  MIRDST  IN  DRO"; 
"WAIT  FOR  DST,  MORE"; 

"SIGN  EXTEND  DST,  MORE"; 

"JMP  TO  D08  INSTR"; 
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B [T8 :  S  AND  D  TEMP, DRO  TST  MSRNOC  NEXT  "BIT  OP,  MORE"; 

BIC8 :  NS  AND  D  TEMP.DRO  MSRNOC  NEXT  VRITEB  "BIC  OP,  END"; 

BIS8 :  S  OR  D  TEMP.DRO  MSRNOC  NEXT  WRITER  "BIS  OP,  MORE"; 


"DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  1)09" 

SUB  1 :  "SRC  MODE  EQ  0,  DST  MODE  EQ  0" 

"MIRSRC  IN  RS,  MIRDST  IN  RD" 

I)  SUB  S  RS ,  RD  MSRCI  NEXT  "SUB  OP,  END"; 


"DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  DO  10" 

SUB 2 :  "CLASS  START  A DDR  FROM  MAP,  SRC  MODE  EQ  0,  DST  MODE  NE  0” 

SADD  D  FLDSELl 3 , 3 ) ,  I  MM  "FETCH  DST  OPN'D,TADDR=DBASE+MODE" 
TADDR-DHASK  JSR  INDEXED  "MIRSRC  IN  RS, MIRDST  IN  DRO"; 

CONT  "WAIT  FOR  DST,  MORE"; 

D  SUB  S  RS , DRO  MSRCI  NEXT  WRITE  "SUB  OP,  MORE"; 


[• 


► 

* 


"DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  DOll" 

SUB3 :  "CLASS  START  ADDR  FROM  MAP,  SRC  MODE  NE  0,  DST  MODE  EQ  0" 

SADD  D  FI.i)SF.L(9,:n  ,  I  MM 

TADDR=SBASE  JSR  INDEXED  "FETCH  SRC  OPND.TADDR=DBASE+MODE" ; 
CONT  "WAIT  FOR  SRC,  MORE"; 

D  SUB  S  DRO.RD  MSRCI  NEXT  "SUB  OP,  END"; 


A 


"DOUBLE  OPERAND  INSTRUCTIONS  -  CLASS  D012" 

SUB4 :  "CLASS  START  ADDR  FROM  MAP,  SRC  MODE  NE  0,  DST  MODE  NEO" 

S  ADD  D  FLDSEL(9 , 3) , I MM 

TADDR=SBASK  JSR  INDEXED  "FETCH  SRC  OPND ,TADDR=DBASE+MODE" ; 

CONT  "WAIT  FOR  MEM,  MORE"; 

MOVS  DRO, TEMP  "TEMP=MIRSRC ,  MORE"; 

S  ADD  D  FLDSELI 3 , 3 ) , I MM  "FETCH  DST  OPND,TADDR=DBASE+MODE" 

TADDR=DBASE  JSR  INDEXED  "MIRSRC  IN  TEMP,  MIRDST  IN  DRO"; 
CONT  "WAIT  FOR  MEM,  MORE”; 

D  SUB  S  TEMP.DRO  MSRCI  NEXT  WRITE  "SUB  OP,  END"; 


III. 12  Indirect  mapping  table 

"THE  FOLLOWING  IS  A  TEMPORARY  JUMP  TABLE  TO  AVOID 
THE  NECESSITY  OF  RE BURNING  PROMS  FOR  EACH  CORRECTION" 


ORG 

1 140Q; 

JILGL: 

JMP 

1  LGL; 

JM1  : 

JMP 

Ml  ; 

JJUMP : 

JMP 

JUMP; 

JRTS : 

JMP 

RTS ; 

JCC : 

JMP 

CC; 

JSWB1: 

JMP 

SWAB  1  ; 

JSWB2 : 

JMP 

SWAB 2 ; 

JBR : 

JMP 

HR; 

JBNE : 

JMP 

BNE  ; 

JBEQ : 

JMP 

HEQ; 

JBGE: 

JMP 

BGE ; 
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JBLT: 

JBGT: 

JBLE: 

JJSR(a 

JCLRl 

JC0M1 

JINC1 

JDEC1 

JN'EGl 

JADC1 

JSBC1 

JTST1 

JS02 : 

JROR3 

JROL3 

JASR3 

JASL3 

JSXT3 

JS04 : 

JMARK 

JMOV1 

JCMP1 

JBIT1 

JBIC1 

JBIS1 

JADD1 

JD02: 

JD03 : 

JD04 : 

JMUL1 

JMUL2 

JDIV1 

JDIV2 

JASH1 

JASH2 

JXOR1 

JXOR2 

JSOB  : 

JBPL: 

JBMI: 

JBHI : 

JBLOS 

JBVC : 

JBVS : 

JBCC : 

JBCS : 

JEMT  : 

JTRAP 

JCLR6 

JCOM6 

JINC6 

JDEC6 

JNEG6 

JADC6 

JSBC6 

JTST6 

JS07: 

JR0R8 

JR0L8 

JASR8 

JASL8 


JMP  BLT ; 
JMP  BGT ; 
JMP  BLE; 
JMP  JSR(3; 
JMP  CLR1 ; 
JMP  COM  1 ; 
JMP  INC(ai; 
JMP  DEC  1 ; 
JMP  NEG 1 ; 
JMP  ADC  1 ; 
JMP  SBC  1 ; 
JMP  TST1 ; 
JMP  S02 ; 
JMP  ROR3 ; 
JMP  ROL3 ; 
JMP  ASR3 ; 
JMP  ASL3 ; 
JMP  SXT3 ; 
JMP  S04 ; 
JMP  MARK5 ; 
JMP  MOV 1 ; 
JMP  CMP1 ; 
JMP  BIT1 ; 
JMP  BICE ; 
JMP  BIS1 ; 
JMP  ADD1 ; 
JMP  D02 ; 
JMP  D03 ; 
JMP  D04 ; 
JMP  MUL1; 
JMP  MUL2 ; 
JMP  DIVl; 
JMP  DIV2; 
JMP  ASH1 ; 
JMP  ASH2; 
JMP  XORl ; 
JMP  X0R2 ; 
JMP  SOB; 
JMP  BPL; 
JMP  BN I; 
JMP  Bill ; 
JMP  BLOS; 
JMP  BVC ; 
JMP  BVS ; 
JMP  BCC ; 
JMP  BCS ; 
JMP  EMT; 
JMP  TRAPfct ; 
JMP  CLR6 ; 
JMP  COM 6 ; 
JMP  INC@6; 
JMP  DEC6 ; 
JMP  NEG6 ; 
JMP  ADC6 ; 
JMP  SBC6 ; 
JMP  TST6 ; 
JMP  S07 ; 
JMP  R0R8 ; 
JMP  ROL8 ; 
JMP  ASR8 ; 
JMP  ASL8 ; 
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JROR9 

JMP  ROR9 

JROL9 

JMP  ROL9 

JASR9 

JMP  ASR9 

JASL9 

JMP  ASL9 

JMTP1 

JMP  MTPS1; 

JMTP2 

JMP  MTPS2 ; 

JMFP1 

JMP  MFPS1; 

JMFP2 

JMP  MFPS2 ; 

JD05 : 

JMP  D05 ; 

JD06 : 

JMP  D06 ; 

JD07 : 

JMP  D07 ; 

JD08 : 

JMP  D08 ; 

JSUB1 

JMP  SUB  1 

JSUB2 

JMP  SUB2 

JSUB3 

JMP  SUB3 

JSUB4 

JMP  SUB4 

JSPC : 

JMP  SPC; 

III. 13  Special  macro-instructions 


SPC : 


SPCO : 


MFCPU: 


"START  OF  SPECIAL  OPERATION  INSTRUCTIONS" 
"DECODES  1700XX  TO  1777XX  ONLY" 

"SPECIALS  ARE  IN  8  GROUPS  -  SPC0..SPC7" 
"(CORRESPONDS  TO  170XXX. . 177XXX)" 

S  ADD  D  FLDSEL(9 ,3) , I MM 


TADDR=$+l  JMP  INDEXED 

"JUMP 

S  ADD  D  FLDSEL(6 , 3) , IMM 
TADDR=SPCO  JMP  INDEXED 

"JUMP 

S  ADD  D  FLI)SEL(8 ,  1),IMM 
TADDR=SPC 1  JMP  INDEXED 

"JUMP 

S  ADD  D  FLDSELC8, 1) , IMM 
TADDR=SPC2  JMP  INDEXED 

"JUMP 

JMP  I LGL 

"SPC3 

JMP  I LGL 

"SPC4 

JMP  I LGL 

"SPC5 

JMP  I LGL 

"SPC6 

JMP  I LGL 

"SPC7 

TO  SPC  GROUP 


OF  2)’ 


"MFCPU .MTCPU .MFCAC ,MTC AC , MF I OP , MTHST , MTREF" 
"TEMP  USED  TO  MANIPULATE  ADDRESSING  MODE" 
SADD  D  F LOSE L( 3, 3), I MM 
TADDR=MFCPU  JMP  INDEXED 
S_ADD_D  FLDSEL(3 , 3) , IMM 
TADDR=MTCPU  JMP  INDEXED 
S_ADD_D  FLDSEL(3 , 3) , IMM 
TADDR=MFCAC  JMP  INDEXED 
S  ADDD  FLDSEL(3 , 3) , IMM 
TADDR=MTCAC  JMP  INDEXED 
S_ADD_D  FLDSELC 3,3), IMM 
TADDR=MFIOP  JMP  INDEXED 
SADDD  FLDSELC 3, 3) ,IMM 
TADDR=MTIOP  JMP  INDEXED 
JMP  MTHST 
DST=26Q  NEXT 
"MOVES  FROM  CPU  TO  DR2,DR1 ,DRO  (NOTE  ORDER)" 
"ADDRESSING  RESOLVED  FIRST" 

MOVS  R2.DR2  JMP  @MFCP0  "R2=I)R2(MODE=0)"; 

JMP  OMFCP1  CLR  ,TEMP  "MODE=l" 

JMP  (dMFCP2  CLR  ,TEMP  "MODE=2" 


"MFCPU  ADDRESSING" 

"MTCPU  ADDRESSING" 

"MFCAC  ADDRESSING" 

"MTCAC  ADDRESSING" 

"MFIOP  ADDRESSING" 

"MTIOP  ADDRESSING"; 
"MTHST  INTERPRETING"; 
"MTREF  INTERPRETING"; 
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JMP  ILGL 

"MODE=3  IS  ILLEGAL"; 

JMP  @MFCP4  CLR  ,TEMP 

"MODE=4" ; 

JMP  ILGL 

"MODE=5  IS  ILLEGAL"; 

JMP  ILGL 

"MODE=6  IS  ILLEGAL"; 

JMP  ILGL 

"MODE=7  IS  ILLEGAL"; 

@MFCP0 : 

MOVS  R I , DR 1 

"DR1=R1"; 

MOVS  RO ,DR0  JMP  FCHSPC 

"DRO=RO ,  END”; 

@MFCP4 : 

"ENTRY  POINT  FOR  M0DE=4,  SUBTRACT  6  FROM  POINTER" 

D  SUB  S  IMM.RD  PRESET=6 

"ADJUST  RD  (REG  ADDR)" ; 

JMP  @MFCP1 

"EXECUTE  INSTR" ; 

@MFCP2 : 

"ENTRY  POINT  FOR  M0DE=2,  TEMP=2  FOR  THIS  MODE" 

MOVS  TWO , TEMP  JMP  @MFCP 

"TEMP  FOR  POINTER  CORRN"; 

@MFCP1: 

"ENTRY  POINT  FOR  M0DE=l" 

MOVS  I MM , TEMP  PRESET=-4 

"ADJ  ADDR"; 

@MFCP : 

MOVS  RD , , MAR  READ 

"GET  EXP"; 

INC2  , RD , MAR 

"ADJ  MAR"; 

MOVS  DRO ,TEMP@  READ 

"TEMP£=EXP,  GET  MSM" ; 

INC2  , RD , MAR 

"ADJ  MAR"; 

MOVS  DRO, RIO  READ 

"R10=MSM ,  GET  LSM"; 

S  ADD  D  TEMP ,RD 

"ADJ  ADDR,  DR0=LSM" ; 

MOVS  R10.DR1 

"DR1=MSM" ; 

MOVS  TEMP@,DR2  JMP  FCHSPC 

"DR2=EXP,  END"; 

MTCPU : 

"MOVES  TO  CPU  FROM  DR0.DR1, 

DR 2 (NOTE  ORDER)" 

"ADDRESSING  RESOLVED  FIRST" 

MOVS  DRO ,R0  JMP  @MTCP0 

"M0DE=0"; 

JMP  @MTCP1  CLR  .TEMP 

"M0DE=l"; 

JMP  @MTCP2  CLR  ,TEMP 

"M0DE=2" ; 

JMP  ILGL 

"MODE=3  IS  ILLEGAL"; 

JMP  @MTCP4  CLR  .TEMP 

"MODE=4"; 

JMP  ILGL 

"MODE=5  IS  ILLEGAL"; 

JMP  ILGL 

"MODE=6  IS  ILLEGAL"; 

JMP  ILGL 

"MODE=7  IS  ILLEGAL"; 

@MTCP0: 

MOVS  DR1.R1 

"R1=DR1"; 

MOVS  DR2.R2  NEXT 

"R2=DR2 ,  END"; 

(3MTCP4: 

D  SUB  S  IMM.RD  PRESET=6 

"ADJUST  POINTER  FOR  MODE=4"; 

JMP  @MTCP1; 

@MTCP2 : 

MOVS  I MM, TEMP  PRESET=6 

"CORRN  FOR  ADDR  POINTER"; 

@MTCP1: 

"EP  FOR  MODE=l (TEMP  PRESET 

TO  0)" 

S  ADD  D  IMM.RD, MAR  PRF.SET= 

4  WRITE  "ADJ  PTR, WRITE  LSM"; 

MOVS  DR  1, DRO 

"DRO=MSM"; 

D  SUB  S  TWO, RD, MAR  WRITE 

"ADJ  PTR,  WRITE  MSM"; 

MOVS  DR2.DR0 

"l)R0=EXP" ; 

D  SUB  S  TWO, RD, MAR  WRITE 

"ADJ  PTR,  WRITE  EXP"; 

S  ADD  D  TEMP.RD  NEXT 

"CORR  PTR,  END"; 

MFCAC : 

"MOVE  FROM  CACHE  TO  DR2.DR1 

,  DRO" 

"ADDRESSING  RESOLVED  FIRST" 

JMP  ILGL 

"M()I)E=0  IS  ILLEGAL"; 

MOVS  RD, ,MAR  READC  JMP  DELAY  "MODE=l"; 

MOVS  RD, ,MAR  READC  JMP  @MFCA2  "MODE=2"; 

JMP  ILGL 

"MODE=3  IS  ILLEGAL"; 

JMP  @MFCA4 

"M0DE=4"; 

JMP  ILGL 

"M0DE=5  IS  ILLEGAL"; 

JMP  ILGL 

"M0DE=6  IS  ILLEGAL"; 

JMP  ILGL 

"M0DE=7  IS  ILLEGAL"; 

@MFCA2 : 

INCI  ,RD  JMP  FCHSPC 

"ADJUST  POINTER,  END"; 

(JMFCA4 : 

D  SUB  S  ONE, RD, MAR  READC 

"ADJUST  POINTER,  READ"; 

DELAY: 

JMP  FCHSPC 

"WAIT  FOR  READ,  END"; 

MTCAC : 

"MOVE  TO  CACHE  FROM  DR0.DR1.DR2" 

"ADDRESSING  RESOLVED  FIRST" 

JMP  ILGL 

"M0DE=0  IS  ILLEGAL"; 

MOVS  RD, .MAR  WRITEC  NEXT 

"MODE=l"; 
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@MTCA2 : 
(§MTCA4 : 
MFTOP : 


@MTI01: 
MTHST : 


MOVS  RD, ,MAR  WRITEC  JMP  @MTCA2  "M0DE=2"; 

JMP  ILGL  "MODE=3  IS  ILLEGAL"; 

JMP  (3MTCA4  "M0DE=4"; 

JMP  ILGL  "MODE=5  IS  ILLEGAL"; 

JMP  ILGL  "MODE=6  IS  ILLEGAL"; 

JMP  ILGL  "MODE=7  IS  ILLEGAL"; 

INC  1  ,RD  NEXT  "ADJUST  POINTER,  END"; 

D_SUB_S  ONE.RD.MAR  WRITEC  NEXT  "ADJ  PNTER , WRITE" ; 
"MOVES  FROM  40BIT  10  PAGE  TO  DRO ,DR1 ,DR2" 
"ADDRESSING  RESOLVED  FIRST" 


(f'MFIOl : 
MTIOP: 


JMP  ILGL 

"MODE=0" 

JMP  (-)MF  101 

"MODE= 1 " 

JMP  ILGL 

"M0DE=2" 

JMP  ILGL 

"M0DE=3" 

JMP  ILGL 

"M0DF,=4" 

JMP  ILGL 

"M0DE=5" 

JMP  ILGL 

"M0DE=6" 

JMP  ILGL 

"M0DE=7" 

MOVS  RD , , MAR  READ 

"FETCH  DST 

OPND 

INTO 

DRO, 1,2"; 

JMP  FCHSPC 

"WAIT  THEN 

FETCH 

NO 

INTRPT"; 

"MOVES  TO  40BIT  10  PAGE  TO  DR0.DR1 ,DR2" 
"ADDRESSING  RESOLVED  FIRST" 


JMP  ILGL 
JMP  (9MTI01 
JMP  ILGL 
JMP  ILGL 
JMP  ILGL 
JMP  ILGL 
JMP  ILGL 
JMP  ILGL 

MOVS  RD,, MAR  WRITE  NEXT 
"MOVES  DST  TO  OPREC," 

S_AND_D  FLDSEL(3 , 3) , I MM  TADDR=7  USR  "UZ=1  IF  MODE=0"; 
CJP  UNE  TADDR=C‘:MTIEST1  "JMP  IF  MODE  NE  0"; 

MOVS  RD ,OPREG  MSR  NEXT  "OPREG=DST(MODE=0 ) " ; 


”M0DE=0’ 

"MODE= 1 " 

"M0DE=2" 

"M0DE=3" 

"M0DE=4" 

"M0DF.=5" 

"M0DE=6" 

"M0l)E=7"; 

"WRITE  DRO, 1,2  TO  10  PAGE"; 


@ MTHST 1 :  S  ADD_D  FLDSEL(3 , 3) , IMM 

TADDR=DBASE  JSR  INDEXED 
CONT 

MOVS  DRO , OPREG  MSR  NEXT 
SPC1 :  "INTERPRET  BDGTR , BDLER" 

JMP  (ySPCl 

CJP  CCMUX=6  TADDR=BR 
NEXT 

@SPC  1 :  CJP  CCMUX=7  TADDR=BR 
NEXT 

SPC2 :  "INTERPRET  BLDGTR , BLDLER" 

JMP  @SPC2 


"FETCH  DST  OPND"; 

"WAIT  FOR  MEMORY"; 
"OPREG=DST(MODE  NE  0)"; 

"ITS  BDGTR"; 

"BR  IF  COND  TRUE (BDLER)"; 
"OTHERWISE  END"; 

"BR  IF  COND  TRUE (BDGTR)"; 
"OTHERWISE  END"; 

"ITS  BLDGTR"; 


CJP  CCMUX=6  I 0_5=45Q  TADDR=BR  "BR  IF  COND  TRUE (BLDLER)"; 
NEXT  "OTHERWISE  END"; 

@SPC2:  CJP  CCMUX=7  10  5=45Q  TADDR=BR  "BR  IF  COND  TRUE (BLDGTR) " ; 
NEXT  ’  "OTHERWISE  END"; 
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APPENDIX  IV 

OPERATING  PROCEDURES  ON  THE  IBM370 

As  described  in  reference  2,  the  formatted  microcode  is  generated  in  a  two 
pass  process.  The  first  pass  generates  the  microcode  in  an  intermediate 
object  code  form.  This  is  accomplished  by  the  foreground  job 
' ARO. LIB . CLIST(ASMDEV) ' .  In  practice  this  task  takes  two  minutes  of  CPU  time 
so  the  BATCHTSO  command  is  used  to  submit  this  portion  of  the  job.  This  job 
processes  the  source  code  found  in  1 ARO . CPROC . DATA '  and  generates  a  listing 
file  ' ARO . CPROC . MLST'  and  an  intermediate  object  code  file  1 ARO . CPROC . MOBJ 1 . 

The  second  pass  reformats  ' ARO . CPROC . MOBJ '  into  the  load  module 
'ARO.CPROC.MFMT' .  This  is  accomplished  by  the  foreground  job 
' ARO . LIB . CLIST(FMTRUN) 1 . 

The  next  stage  is  to  extract  the  addresses  of  the  left  justified  labels  (see 
Sections  5.3  and  5.4)  from  the  listing  file  to  generate  the  contents  of  the 
mapping  PROMs.  Additional  information  on  the  PDP-11  instruction  code  is 
required  at  this  stage  so  that  the  left  justified  addresses  can  be  associated 
with  particular  groups  of  instruction  codes.  The  foreground  job 
' ARO . LIB . CL I ST (CPROC ) 1  takes  the  listing  file  'ARO. CPROC. MLST'  and  PDP-11  code 
information  in  ' ARO . JMAP . DATA '  and  generates  the  mapping  PROM  contents  in 
'ARO.PROM.DAT1.  The  latter  file  contains  a  list  of  the  PROM  addresses  and 
contents  and  mnemonics  of  the  left  justified  labels.  Due  to  the  design  of  the 
Control  Processor,  the  PROM  addresses  are  mapped  from  the  PDP-11  op-code  as 
follows:-  the  most  significant  ten  bits  of  the  op-code  are  directly  mapped  to 
the  most  significant  ten  bits  of  the  PROM  address  and  the  least  significant 
bit  of  the  PROM  address  is  generated  from  NOT(8IT3  OR  BIT4  OR  BITS)  of  the  op¬ 
code  (viz.  detects  mode=0  in  the  destination  field).  Thus  destination  mode=0 
is  mapped  to  odd  PROM  addresses  and  destination  mode=l  through  to  mode=7  are 
mapped  to  even  PROM  addresses. 

The  listing  file  ' ARO . CPROC . MLST'  cannot  be  generated  with  octal  microcode 
addresses  as  is  the  PDP-11  standard.  The  foreground  job 
' ARO . LIB . CHST(CPOCT) '  reads  the  listing  file  and  produces  ' ARO. CPOCT. MLST1 
which  is  in  the  desired  format. 

The  final  stage  is  to  generate  the  magnetic  tape  volume  AR01  which  is  in  RSX 
FILES-11  format  containing  the  files  (7  , 75 )MICR0C0DE . DAT  and  (7 ,75)PR0M.DAT. 
This  is  accomplished  by  submitting  the  background  job  ' ARO. LIB . CNTL(RSXDJH) ' . 
When  the  data  is  transferred  to  the  Jindalee  Auxiliary  Computer,  PROM.DAT  is 
converted  into  the  form  required  by  the  PROM  programmer  by  the  program 
(  7 , 75 )AROPRM . FTN. 

IV. 1  Usage  summary 

The  source  for  the  microcode  is  stored  in  ' ARO . CPROC . DATA' .  To  recompile 
the  microcode  enter: 

BATCH  DSN (LIB .CLIST(ASMDEV) )  CLASS(A)  MSGCI.ASS(T)  JOBCHAR(Q) 


•  4 


•  4 


•  I 


•  « 


•  • 


•  • 


To  display  the  results  of  the  compilation,  reformat  the  microcode,  generate 
the  mapping  PROM  contents,  convert  the  addresses  to  octal,  and  print  the 
listing  file,  enter: 

EX  LIB(GENUC) 

To  transfer  the  formatted  microcode  and  PROM  contents  to  RSX  FILF.S-11  tape 
enter : 
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SUBMIT  LIB(RSXDJH) 

It  is  essential  to  check  that  the  following  data  sets  are  in  the  catalog: 
'ARO. LIB. LOAD' , ' ARO . LIB . CLIST' , ' ARO . LI B . CNTL' , 

' ARO . JMAP . DATA ’ , ' ARO . CPROC . DATA ' , ' ARO . CPROC . CMND ' . 
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Figure  1.  A  schematic  of  the  Control  Processor 


SICNETICS  BIPOLAR  MICRO  ASSEMBL  ER ( A ) 

ADOR:  SRC  DST  MARS  C2903  C2904  CCMUX  C2910  SOF  IMMOP 

"MACRO  FETCH  ROUTINE" 

FETCH:  MOVS  R7 ,  , MAR  READ  "MAR=PC" 

CJP  INTREQ  TADDR= INTROUT  "JUMP  TO  INTERRUPT  HANDLER  IF 

INTERRUPT  PRESENT"; 

0031:  000111  00000  1  011011100  000000100100000  010  0011  10000  0000000000011100 

I NC2  , R  7  "UPDATE  PC,  MORE"; 

0032:  000000  00111  0  000000100  010000100100000  000  1110  01111  0000000000000000 

DST=M I R  JMAP  "LOAD  MIR,  JUMP  TO  START  ADDR" ; 

0033:  000000  10100  0  010011100  000000100100000  000  0010  01111  0000000000000000 


0374 
03  75 
0376 
03  7/ 
0400 
0401 
0402 
040  3 
0404 : 


"SINGLE  OPERANO  INSTRUCTIONS" 

"CLR,  COM,  INC,  DEC,  NEG,  ADC,  SBC,  TST,  ROR,  ROL,  ASR,  SXT,  MARK, 
MFPI,  MTPI" 

"SINGLE  OPERAND  INSTRUCTIONS  -  CLASS  SOI" 


CLR  1  : 
000000 
C0M1  : 
U00U00 
I NC@1 : 
OO0000 

DFC1  : 
001 100 
NEG1  : 
000000 
ADC  1  : 
000000 
SBC1  : 

00 1011 

001  1  1  1 
TSI  1  : 
011000 


"  DST  MODE  IQ  0" 

CLR  ,RD  MSR  NEXT  "CLR  OP,  END"; 

11000  0  100010100  000000100100101  000  0011  01111 
NOT_D  , RD  MSRCI  NEXT  "COM  OP,  END"; 

11000  0  010110100  00000001 1000101  000  0011  01111 

I  NCI  , RD  MSRNOC  NEXT  "INC  OP,  END"; 

11000  0  000000100  000000 1001 0000 1  UOO  0011  01111 

D  SUB  S  ONE , RO  MSRNOC  NEXT  "OTC  OP,  END"; 

11000  0  0001 10100  0 1 0000 1001 0000 1  000  0011  01111 

NOT  D  , RD  I  1 1 _ 1 2~ 1  MSRCI  NEXT  "NEC  OP,  END"; 

11000  0  010110100  010000011000101  000  0011  01111 

MOVD  , RD  111  12  >  MSR  NEXT  "ADC  OP,  END"; 

11000  O  OIOOIOIOO  1 1O0DO1O0100101  000  0011  01111 

MOVS  /T  RO, T ( MP  111  12  3  10  5  MC  "TEMP  GIN,  MORE"; 

01111  o  oiioioioo  iiDoooiooiooooooou  mo  01111 

0  SUB  S  TEMP, RD  MSRCI  NEXT  "DSt-TIMP,  [ ND" ; 

11000  0  000110100  01000001  1000101  000  0011  01111 

MOVS  RD  MSR  NEXT  "TST  OP,  END"; 

00000  0  011011100  000000100100101  000  0011  01111 


0000000000011001 
000000000001 1001 
0000000000011001 
000000000001 1001 
000000000001 1001 
000000000001 1001 
000000000001)0000 
000000000001 1001 
000000000001 1001 


Figure  2. 


A  sample  of  micro-assembler  output 
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Figure  4.  Microcode  mnemonic  definition 
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SUMMARY  OR  ABSTRACT: 
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A  high  speed  array  processor  (ARO)  has  been  designed  for  the  processing 
of  radar  data  in  real  time.  The  operation  of  the  ARO  is  supervised  by 
a  bit-slice  microprocessor  (the  Control  Processor).  This  document 
contains  a  description  of  the  microcode  which  was  written  for  the 
Control  Processor  to  enable  it  to  interpret  PDP-11  assembler  code. 
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